(define insertR
  (lambda (new old lst)
    (cond
      ((null? lat) (lst))
      (else (cond
              ((eq? (car lst) old)
               (cons old
                     (cons new (cdr lst))))
              (else (cons (car lst)
                          (insertR new old
                                   (cdr lst)))))))))