sieve of erasotenese in haskell

eroset.hs

import Control.Monad

series :: [Int]
series = [2..]

filterMulti :: Int -> [Int] -> [Int]
filterMulti n = filter (\x -> x `mod` n /= 0)

sieve :: [Int] -> [Int]
sieve s = p:sieve ps
  where
    p = head s
    ps = filterMulti p $ tail s

main :: IO ()
main = do
  n <- liftM read getLine
  print $ take n $ sieve series