(define x
  (let r ((i 0)) ;; R5RS "named let"
    (+ 100 i)
    (if (< i 5)
      (r (+ i 1)))
    i))

evaluates to:

100 101 102 103 104 105 5 4 3 2 1 0