Select Code to Download

>perl -wMstrict -le
"my $n = shift || 1000;
...
        $n_max_i/$n*100, $n;
"
last element picked randomly 6.700000% of 1000 times