1024
[ dup 0 > while
  dup echo cr 2 /
  again ]
drop