'Smalltalk file prepared for testing On To Smalltalk'!


!Integer methods!
powerOfTwo
  | n result |
  n := self.
  result := 1.
  [n = 0] whileFalse: [n := n - 1.  result := 2 * result].
  ^ result
! !
Transcript show: 4 powerOfTwo printString
!