#!clisp (setf lf (adan eva)) (defun exchange (lf) cons((last lf) (first lf)))