C:\Users\Laurent>perl6 -e "my int $c = 1; my $start = now; while (1) { $c++; last if (2 * $c ) > 50000000 ; }; say now - $start; say $c"
8.9252329
25000001