(defun my-append (&rest lists)
(reduce #'my-append-1 lists))