(defun riece-async-substitute-variables (program variable value)
(setq program (copy-sequence program))
(let ((pointer program))
(defun riece-async-substitute-variables (program variable value)
(setq program (copy-sequence program))
(let ((pointer program))