RosettaCodeData/Task/Loops-Do-while/Perl-6/loops-do-while-2.pl6

my $val = 0;
repeat {
    say ++$val;
} until $val %% 6;