sum' = foldl (+) 0main = print $ sum' [1..25000000]
Standard input is empty
312500012500000
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!