(defun add-four-complicated (a-number)
  (eval `(+ 4 ',a-number)))