RosettaCodeData/Task/Loops-Do-while/GAP/loops-do-while.gap

n := 0;
repeat
    n := n + 1;
    Print(n, "\n");
until RemInt(n, 6) = 0;