RosettaCodeData/Task/Loops-Do-while/Pop11/loops-do-while.pop11
2023-07-01 13:44:08 -04:00

6 lines
108 B
Text

lvars val = 0;
while true do
val + 1 -> val;
printf(val, '%p\n');
quitif(val rem 6 = 0);
endwhile;