sub isPrime($) {
    $n=pop;
    1^(1x$n--)=~/^(1{2,$n})\1+$/;
}