2 lines
43 B
Factor
2 lines
43 B
Factor
|
1024 [ dup 0 > ] [ dup . 2 /i ] while drop
|
|
|
1024 [ dup 0 > ] [ dup . 2 /i ] while drop
|