isPrime x = prime x (floor $ sqrt $ fromIntegral x) where
  prime x i | i == 1 && x > 1  = True
            | x == i * div x i = False
            | otherwise        = prime x (i-1)