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

(define (Taxes)
   (display "Quel est le prix hors taxes ?")
   (newline)
   (let ((ht (read)))
      (display "Le prix toutes taxes comprises est ")
      (display (TTC ht))
      (newline)))

(define (TTC ht)
  (+ ht (/ (* ht 19.6) 100)))

(Taxes)