isFunnyPrime p = all isPrime $ map read $ filter (/="") $ inits (show p) ++ tails (show p)
isFunnyPrime p = all isPrime $ map read $ filter (/="") $ inits (show p) ++ tails (show p)
isFunnyPrime p = all isPrime $ map read $ filter (/="") $ inits (show p) ++ tails (show p)