sub listprimes {
    my ($n) = @_;

    return join " ", grep {$_ <= $n} @primes;
 }