sub nearest_prime {
    my $n=my $m=shift;
    return $n if isprime $n;
    while (1) {
        return $n if isprime ++$n;
        return $m if isprime --$m;
    }
}