anchor.diff:  				  (read-line in nil)))
   		       ((string= #\Space str-line :end2 1))
   		     (push str-line str-lst))
  -		   (setf (get-transition-matrix hstate) (make-matrix-per-space (reverse str-lst))))))
  +		   (setf (get-transition hstate) (make-matrix-per-space (reverse str-lst))))))
   	      ((string= "M" line :end2 1)
   	       ;; measure matrix
   	       (let ((str-lst nil))
  
positive.code: 	    (setf sum 0.0)
  	    (do ((j 0 (1+ j)))
  		((>= j (get-states hstate)))
  	      (incf sum (* (aref (get-transition-matrix hstate) k j)
  			   (aref (get-measure-matrix hstate) j (aref o (+ 1 tm)))
  			   (aref beta (+ 1 tm) j))))
  	    (setf (aref beta tm k) sum))))
        (do ((l 0 (1+ l)))
  
negative.code:     (progn
        (do ((i 0 (1+ i)))
  	  ((>= i (get-states hstate)))
  	(setf (aref alpha 0 i) (* (aref (get-initial hstate) i)
  				  (aref (get-measure hstate) i (aref o 0)))))
        (do ((tm 0 (1+ tm)))
  	  ((>= tm (- tms 1)))
  	(do ((j 0 (1+ j)))
  