import qualified Data.Map as Map main=print $ (sum [e|e<-[1..100]])^2 - (sum [e2*e2|e2<-[1..100]])
Standard input is empty
25164150
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!