p6 :: Int
p6 = (sum [1..100])^2 - foldl (\a x -> x^2 + a) 0 [1..100]

main = putStrLn $ "Solution: " ++ show p6