    "Spoken Math"
    ("SPC" emacspeak-maths-enter "enter")
    ("a" emacspeak-maths-speak-alt "Alt Text")
+   ("r" emacspeak-maths-root "Root")
    ("<up>" emacspeak-maths-up "Up")
    ("<down>" emacspeak-maths-down"down")
    ("<left>" emacspeak-maths-left "left")


(cl-loop
 for move in
 '("left" "right" "up" "down" "root" "depth")
 do
 (eval
  `(defun ,(intern (format "emacspeak-maths-%s" move)) ()

;;; Parse one complete chunk
                (setq result (emacspeak-maths-read-output))
;;; Todo: reverse later depending on how we use it.
                (setf (emacspeak-maths-results emacspeak-maths) result)
                (skip-syntax-forward " >")
                (delete-region start (point))
                (setq start (point)))
