RosettaCodeData/Task/Loops-Do-while/SETL/loops-do-while.setl

program dowhile;
    value := 0;
    loop until value mod 6 = 0 do
        print(value);
        value +:= 1;
    end loop;
end program;