RosettaCodeData/Task/Loops-While/Joy/loops-while.joy

3 lines
62 B
Plaintext

DEFINE putln == put '\n putch.
1024 [] [dup putln 2 /] while.