open System
open System.Numerics


let rec FactorialBigInteger(n: bigint): bigint =
    match n with
    | 1 -> bigint(1)
    | n -> bigint(n) * FactorialBigInteger(n - 1)

let result = factorial 250000
printfn "%A" result