sub isprime {
    (1 x shift) !~ /^1?$|^(11+?)\1+$/;
}