modZero :: Int -> [Int] -> Bool
modZero n [] = False
modZero n (x:xs) = if (mod n x) == 0 then True
                   else modZero n xs

primal :: Int -> Bool
primal n = not(modZero n [2..n `div` 2])
