foo.scm

(define (add1* l)
  (let ((x (empty? l)))
    (if x
        '()
        (let ((m (first l))
              (y (add1 m))
              (n (rest l))
              (z (add1* n)))
          (cons y z)))))