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

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

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

(TauxQuelconque)