RosettaCodeData/Task/Loops-While/Logo/loops-while.logo

3 lines
55 B
Plaintext

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