anchor.diff:        (format out "O = ~d~%" (get-observations hstate))
         (format out "I = <~%")
         (pprint-array out (get-initial-distributions hstate))
  +      (format out "~%")
         (format out ">~%")
         (format out "T = <~%")
         (pprint-matrix out (get-transition-matrix hstate))
  
positive.code: (defun make-array-per-space (str)
    (let ((nums nil))
      (dolist (num (split-per-space str))
        (push (parse-integer num) nums))
      (list-array (reverse nums))))
  
  (defun make-matrix-per-space (str-lst)
  
negative.code:       (progn
  	(setf nums nil)
  	(dolist (num (split-per-space str))
  	  (push (parse-number num) nums))
  	(progn
  	  (setf nums (reverse nums))
  	  (push nums nums-m))))
  