anchor.diff:        (progn
   	(setf nums nil)
   	(dolist (num (split-per-space str))
  -	  (push (parse-integer num) nums))
  +	  (push (parse-number num) nums))
   	(progn
   	  (setf nums (reverse nums))
   	  (push nums nums-m))))
  
positive.code:        (loop for j below (cadr (array-dimensions matrix)) do
  	    (let ((cell (aref matrix i j)))
  	      (format stream "~a " cell)))
         (format stream "%")))
  
  ;;; HMM state will be made up with:
  ;;; states --- internal states
  
negative.code: 	    (setf (aref xi tm k l) (/ (aref xi tm k l) sum))))))))
  
  ;;; APIs
  (defun init-hmm (s o i tr m)
    (declare (type fixnum s)
  	   (type fixnum o)
  	   (type vector i)
  	   (type matrix tr)
  	   (type matrix m))
    (make-hmm-state :states s :measures o :initial i :transition-matrix tr
  		  :measure-matrix m))
  
  (defun init-from-file (file)
    "Initiate a brand new hmm state from a input file."
    (with-open-file (in file :direction :input)
  