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

(define (tirerUnTrait)                                           
   (newline)
   (display "-----------------------------------------------")
   (newline)
   (newline))

(define (annoncerUnVol vol horaire)
   (display "Le vol en direction de ")
   (display vol)
   (display " décollera à ")
   (display horaire)
   (tirerUnTrait))

(annoncerUnVol "Tokyo" "9h00")
(annoncerUnVol "Sydney" "9h30")
(annoncerUnVol "Toulouse" "9h45")