'Smalltalk file prepared for testing On To Smalltalk'!


!Integer methods!
powerOfTwo
  |result|
  result := 1.
  self timesRepeat: [result := result * 2].
  ^result
! !

!Integer methods!
recursivePowerOfTwo
  ^ self powerOfTwo
! !
Transcript show: 4 recursivePowerOfTwo printString; cr 
!