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

2 lines
55 B
Text

make "n 1024
while [:n > 0] [print :n make "n :n / 2]