(define cl:nconc
(lambda args
(cond ((null? args) '())
((null? (cdr args)) (car args))
((null? (car args)) (apply cl:nconc (cdr args)))
(else
(set-cdr! (last-pair (car args))
(apply cl:nconc (cdr args)))
(car args)))))