module DifferenceOfSquares

let square n = pown n 2

let squareOfSum (number: int): int = square ([1..number] |> List.sum)

let sumOfSquares (number: int): int = [1..number] |> List.sumBy square

let differenceOfSquares (number: int): int = abs ((sumOfSquares number) - (squareOfSum number))