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

(define (MesurePrincipale)
   (let* ((pi (* 4 (atan 1.0)))
	  (alpha (read))
	  (n (floor (/ alpha (* 2 pi))))
	  (principale (- alpha (* 2 n pi))))
      (let ((principale
	       (if (> principale pi)
		   (- principale (* 2 pi))
		   principale)))
	 (display principale)
	 (newline))))

(MesurePrincipale)