(define (change e1 e2 l)
  (cond ((null? l) '())
        ((eq? (car l) e1) (cons e2 (change e1 e2 (cdr l))))
        (else (cons (car l) (change e1 e2 (cdr l))))))