F# list reverse

gistfile1.fs

let rec reverse list =
    match list with
    |[] -> []
    |[x] -> [x]
    | head::tail -> reverse tail @ [head]

let rec rev list acc=
    match list with
    | [] -> acc
    | [x] -> x::acc
    | head::tail -> rev tail (head::acc)

let list = [1..10000]

// go to fsi
#time;;

for i in 0..10 do reverse list |> ignore;;

for i in 0..10 do (rev list []) |> ignore;;

rev should be much faster