RosettaCodeData/Task/Loops-Do-while/Pop11/loops-do-while.pop11

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