import Lib (primes)

main :: IO ()
main = putStr $ show solve

solve :: Integer
solve = sum $ takeWhile (< 2000000) primes