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

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