(define (fib n)
   (let boucle ((a 1)
                (b 0)
                (compteur n))
      (if (zero? compteur)
          b
          (boucle (+ a b)
                  a
                  (- compteur 1)))))