(defun myappend(L1 L2)	

  (if

    (null L1) L2

    (cons (car L1) (myappend (cdr L1) L2))))	

(defun myappend2 (&rest lists)

  (if (< (length lists) 2) lists)

  (labels ((_append_ (L1 L2)

			(if (null L1) L2

			  (cons (car L1) (_append_ (cdr L1) L2)))))

	(reduce #'_append_ lists)))

(defun mylast (L)(car (reverse L)))

(defun mynthcdr (i L)

  (if (< i 1) L (mynthcdr (1- i) (cdr L))))

(defun mybutlast (L) (reverse (cdr (reverse L))))

(defun mybutlast2(L &optional(n 1)) (reverse (mynthcdr n (reverse L))))

 

(defun myreverse (L)

  (if (null L) nil

    (myappend (myreverse (cdr L)) (cons (car L) nil))))

 

(defun mylistwtf (&rest rest) rest)