https://projecteuler.net/problem=6

  1 2 3 4 5 6 7 8 9 10 11 12  {-# OPTIONS_GHC -Wall #-} square :: Int -> Int square x = x * x p6 :: Int p6 = let xs = [1..100] in abs $sum (map square xs) - square (sum xs) main :: IO() main = do print$ p6