1024 [dup print 1 shr] [dup 0 >] while drop