(defun my-last (alist)
  (if
    (equalp (length alist) 0)
    nil
    (if
      (equalp (length alist) 1)
      alist
      (my-last (cdr alist)))))