'Smalltalk file prepared for testing On To Smalltalk'!

Object subclass: #RabbitApplication
  instanceVariableNames: 'rabbits month history'        
  classVariableNames: ''
  poolDictionaries: ''
!

!RabbitApplication methods!
initialize
  month := 0.                                           
  history := OrderedCollection new.                     
  rabbits := SortedCollection
             sortBlock:
             [:x :y | x deliveryMonth < y deliveryMonth].
  rabbits add: (Rabbit new deliveryMonth: 2)
!