(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)))))))