(define (fact-big n::int) (let calcul ((c::int 1) (p::bignum (string->bignum "1"))) (if (> c n) p (calcul (+ c 1) (* c p))) ))