Reading Math Formulas as English

(defun get-sum ()

(let*

((exp (get-input-as-list

"Describe a particular sum") )

(result

(or

(match '((? a) plus (? b)) exp)

(match '(the sum of (? a) and (? b)) exp)

) ) )

(if result

(list '+ (val 'a result)(val 'b result)) )

) )