import Lib (fib)

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

solve :: Integer
solve = sum $ filter even $ takeWhile (<= 4000000) fib