use v6-perlito;
class Main {
say '1..5';
my $a = 4;
my $b = 0;
while $a {
$b = $b + 2;
$a = $a - 1;
}
if $b == 8 {
say "ok 1";
}
my @x = ( 2, 3 );
while @x {
say "ok ", (shift @x);
}
@x = ( 4, 5 );
say "ok ", (shift @x)
while @x;
}