Object subclass: #Counter
  instanceVariableNames: 
    'counter '
  classVariableNames: ''
  poolDictionaries: ''    !


!Counter class methods !
 
new
    ^ self basicNew initialize! !



!Counter methods !

increment
    counter := counter + 1!
  
initialize
    counter := 0!
   
printOn: aStream
    aStream nextPutAll: counter printString!
  
value
    ^ counter! !