(define nconc
 (lambda (x y)
   (cond ((null? x) y)
         ((null? (cdr x)) (set-cdr! x y) x)
         (else (nconc (cdr x) y) x))))