sub isPrime($) {
   (1x pop)!~/^(11+)\1+$/
}