(defun foldr (kons knil lists)
(if (null lists)
knil
(funcall kons (car lists)
(foldr kons knil (cdr lists)))))

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