Project Euler in F#, Problem 6

Here's the code:

let square x = x * x
let list1 = [1 .. 10]

let rec sum list =
match list with
| h::tail -> (sum tail) + h
| []->0

let rec sumSquaredListElements list =
match list with
| h::tail -> (sumSquaredListElements tail) + h * h
| [] -> 0


printfn "%A" list1

let print x = printfn "%i" x

let x1 = square (sum list1)

let main () = print x1

main()