#n := 1024.
[n isPositive] whileTrue:
  [inform: number printString.
   n := n // 2]