isPrime n = isElemZero $
  map (mod n) [2..n-1]

isElemZero (x:xs)
  | x==0 = True
  | xs==[] = False
  | otherwise = isElemZero xs