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

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