(define (equal2? l1 l2)
  (if (or (null? l1) (null? l2))
      (eq? l1 l2)
      (and (eq? (car l1) (car l2))
           (equal? (cdr l1) (cdr l2)))))