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

2 lines
39 B
Plaintext

1024 while ( dup ) [ dup println 2 / ]