anchor.diff:  	    (do ((k 0 (1+ k)))
   		((>= k (get-states hstate)))
   	      (incf sum (* (aref alpha tm k)
  -			   (aref (get-transition-matrix hstate) k j))))
  -	    (setf (aref alpha (+ 1 tm) j) (* sum (aref (get-measure-matrix hstate) j (aref o (+ 1 tm))))))))
  +			   (aref (get-transition hstate) k j))))
  +	    (setf (aref alpha (+ 1 tm) j) (* sum (aref (get-measure hstate) j (aref o (+ 1 tm))))))))
         (do ((l 0 (1+ l)))
   	  ((>= l (get-states hstate)))
   	(incf prob (aref alpha (- tms 1) l))))
  
positive.code: 				  (read-line in nil)))
  		       ((null str-line))
  		     (push str-line str-lst))
  		   (setf (get-measure-matrix hstate) (make-matrix-per-space (reverse str-lst))))))
  	      ((string= #\Space line))
  	      ;; jump over space
  	      (t
  
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)))
  