let factorial n = [1..n] |> List.map (fun e -> bigint e) |> List.reduce (*)

//F# 4.0
//let factorial n = [1..n] |> List.map bigint |> List.reduce (*)