Help for this page

Select Code to Download

Select or download this

use List::Util qw(first);

...
    my @f = listprimes ($r);
    say "r == $r:  @f";
    }