use Quantum::Superpositions ;

sub is_prime {
    my ($n) = @_;
    return $n % all(2..sqrt($n)+1) != 0
}