Sieve of Eratosthenes

sieve.hs

sieve [] = []
sieve (x:xs) = x: sieve notMutipleOfX
    where notMutipleOfX = filter (\n -> n `mod` x /= 0 ) xs  

primes = sieve [2..]

main = print $ take 5000 primes