1024
(dup 1 >=) (
  puts
  2 /
) while
pop