RosettaCodeData/Task/Loops-While/Oforth/loops-while.fth

2 lines
39 B
Forth

1024 while ( dup ) [ dup println 2 / ]