((\x -> x * x) $ foldl1 (+) [1..100])
  - (foldl1 (+) $ map (\x -> x * x) [1..100])