   client-buffer ; network socket stream
   client-process ; network connection
   output ; where output is displayed
+  pause ; pending pause to add 
   results
   )
 

      :stress .stress
      :richness .richness))))

(defun emacspeak-maths-parse-text (contents)
  "Parse body of annotated text from Maths Server.
Expected: ((acss) string)."
  (declare (special emacspeak-maths))
  (cl-assert (listp contents) t "%s is not a list. " contents)
  (let ((acss (cl-first contents))
        (string (cl-second contents))
        (start nil))
    (with-current-buffer  (emacspeak-maths-output emacspeak-maths)
      (setq start (goto-char (point-max)))
      (insert string)
      (put-text-property
       start (point)
       'personality (emacspeak-maths-acss acss)))))

(defun emacspeak-maths-parse-pause (contents)
  "Parse Pause value."
  (declare (special emacspeak-maths))
  (cl-assert (numberp contents) t "%s is not a number. " contents)
  (with-current-buffer  (emacspeak-maths-output emacspeak-maths)
    (goto-char (point-max))
    (insert "\n ")
    (put-text-property (1- (point)) (point) 'pause contents) ;;; make it rear-sticky
    ))


(defun emacspeak-maths-parse-error (contents)
  "Display error message."
  (message "%s" contents))


    (cl-assert (fboundp handler) t "%s is not  a function.")
    (funcall handler (cdr sexp))))))

(defun emacspeak-maths-handle-exp (contents)
  "Handle top-level exp returned from Maths Server."
  (mapc #'emacspeak-maths-parse contents))

(defun emacspeak-maths-acss (acss-alist)
