{-# OPTIONS_GHC -O0 #-}
import Data.List
sum' = foldl' (+) 0
main = print $ sum' [1..25000000]