RosettaCodeData/Task/Loops-Do-while/Phix/loops-do-while.phix

integer x = 0
while 1 do
    x += 1
    ?x
    if mod(x,6)=0 then exit end if
end while