-- 10 - sum prime smaller 2 million
eres :: Integral a => [a] -> [a]
eres (x:xs) = if x*x < last xs then x:eres (filter (\y -> rem y x /= 0) xs) else (x:xs)
problem_10 = sum $ eres [2..2000000]