-- The sum of the primes below 10 is 2 + 3 + 5 + 7 = 17.
--
-- Find the sum of all the primes below two million.

import ProjectEuler (primeSieve)

main = do
    let result = sum $ takeWhile (<2000000) primeSieve
    putStrLn $ "Project Euler, Problem 10\n"
        ++ "Answer: " ++ show result