(defun libegin(L)
(cond
((null (cdr L)) nil)
(t (cons (car L) (libegin (cdr L))))
)
)
(libegin `(1 2 3 4))