sub is_prime (Int $n) {
    $n % all(2 .. sqrt($n)+1);
}