;; P01 (*) Find the last box of a list
(defun my-last (lst)
  (cond
   ((eq lst '()) '())
   ((eq (cdr lst) '()) lst)
   (t
    (my-last (cdr lst)))))

(my-last '(a b c d)) ; '(d)