Select Code to Download

sub sieve_s2 {
    my ($n, $i, $s, $d, @primes) = (shift, 7);
...
        return @primes;
    }
}