My Project Euler #6

#light

(*
    Project Euler Problem 6
*)
let sumOfSquares n =
    seq { 1 .. n } |> Seq.fold (fun a x -> a + float(x) * float(x)) 0.0
    
let squareOfSums n =
    let sum = seq { 1 .. n } |> Seq.sum
    float(sum * sum)
    
let problem6 = 
    (squareOfSums 100) - (sumOfSquares 100)