(module fact-big (main get-n)) ;; (define (get-n argv) (print (fact-big (string->integer (cadr argv))))) ;; (define (fact-big n::int) (let calcul ((c::int 1) (p::bignum (string->bignum "1"))) (if (> c n) p (calcul (+ c 1) (* c p))) ))