PROC Main()
  CARD i=[1024]

  WHILE i>0
  DO
    PrintCE(i)
    i=i/2
  OD
RETURN