RosettaCodeData/Task/Loops-Do-while/Stata/loops-do-while-1.stata

local n 0
local q 1
while `q' | mod(`n',6) {
	local q 0
	di `++n'
}