mysum acc []     = acc
mysum acc (x:xs) = n `seq` mysum n xs where n = acc + x

main = putStrLn $ show $ mysum 0 $ take 100000 $ [1..]