sub is_prime { ('1' x shift) !~ /^(11+)\1+$/ }