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

4 lines
63 B
Plaintext

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