1024 [dup print 2 / floor] [dup 0 >] while drop