(define los-equal? (lambda (los1 los2) (cond ((null? los1) (null? los2)) ((null? los2) (null? los1)) (else (and (eq? (car los1) (car los2)) (los-equal? (cdr los1) (cdr los2)))))))