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

(define i 0)

(define (h j)
   (let ((j (+ j 1)))
      (display i) (newline)
      (display j) (newline)
      (let ((k (+ j i)))
	 (set! i 5)
	 k)))

(let ((m 1))
   (set! i 10)
   (display m) (newline)
   (let ((n (h m)))
      (display m) (newline)
      (display n) (newline)
      (display i) (newline) ))