;; Exécution en ligne de commande avec Bigloo :
;; $ bigloo -i Fraction.scm

(define (Fraction)
   (let* ((a (read))
	  (b (read))
	  (c (read))
	  (d (read)))
      (if (or (zero? b) (zero? d))
	  (display "Impossible d'avoir un dénominateur nul !")
	  (begin
	     (display (* a c))
	     (newline)
	     (display (* b d)) ))
      (newline)))

(Fraction)