RosettaCodeData/Task/Loops-Do-while/Metafont/loops-do-while.metafont

4 lines
68 B
Plaintext

a := 0;
forever: show a; a := a + 1; exitif a mod 6 = 0; endfor
end