module Main where

sum_of_squares n = sum $ map (\m -> m * m) [1..n]

square_of_sum n = (\m -> m * m) (sum [1..n])

main = do
    print $ (square_of_sum 100) - (sum_of_squares 100)