euler/haskell/euler010.hs

module Main where
import Prime

main = do
    print $ sum $ takeWhile (<2000000) primes