(defun arith nexpr (x) (eval (parse x>
(defun copyfn nexpr (a b) (rplacd a (cdr b)) a)
(copyfn + plus)
(copyfn - sub)
(copyfn * times)
(copyfn / divide)
