(defun my-but-last (alist)
  (if
    (<= (length alist) 2)
    alist
    (my-but-last (cdr alist))))