isPrime :: Integer -> Bool isPrime n = all (\i -> (n `rem` i) /= 0) $ takeWhile (\i -> i^2 <= n) [2..] main :: IO () main = do n <- readLn forM_ [1..n] $ \i -> putStrLn (show (i) ++ " is a prime? " ++ show (isPrime i))