 (defun emacspeak-maths-start ()
   "Start Node math-server, and connect to it."
   (interactive)
+  (emacspeak-maths-bridge-start)
+  (message "Started Maths server and client."))
+
+(defun emacspeak-maths-bridge-start ()
   (declare (special emacspeak-maths-inferior-program
                     emacspeak-maths emacspeak-maths-server-program))
   (let ((server


(defcustom emacspeak-maths-inferior-program
  (or (executable-find "node")
      (expand-file-name "~/.nvm/versions/node/v6.4.0/bin/node"))
  "Location of `node' executable.
Default value uses the version of `node' set configured via NVM."


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