-- Naive Sieve

module NaiveSieve (primesUpTo) where

primes :: [Integer]
primes = sieve [2..]

sieve :: [Integer] -> [Integer]
sieve (p : xs) = p : sieve [x | x <- xs, x `mod` p > 0]

primesUpTo n = take (fromIntegral n) primes