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