1024 [ dup 0 > ] [ dup . 2 /i ] while drop