let toBigInt (n: int) = bigint(n)
let fac n = 
    [1..n] 
    |> List.map toBigInt 
    |> List.reduce (*)