;; Ces programmes sont sous licence CeCILL-B V1.
;; Exécution en ligne de commande avec Bigloo :
;; $ bigloo -i Factorielle-do.scm

(define (Factorielle)
   (display "Entrez n : ")
   (let ((n (read)))
      (display (laFactorielle n))
      (newline)))

(define (laFactorielle n)
   (do ((i 1 (+ i 1))
	(f 1 (* i f)))
       ((> i n) f)))

(Factorielle)