RosettaCodeData/Task/Loops-While/Oforth/loops-while.fth
2023-07-01 13:44:08 -04:00

1 line
39 B
Forth

1024 while ( dup ) [ dup println 2 / ]