anchor.diff:        (do ((line (read-line in nil)
   		 (read-line in nil)))
   	  ((null line))
  -	(progn
  -	  (setf line (string-trim '(#\Space #\Tab) line))
  -	  (cond ((string= "S" line :end2 1)
  -		 (setf (get-states hstate) (parse-integer line :start 4)))
  -		((string= "O" line :end2 1)
  -		 (setf (get-observations hstate) (parse-integer line :start 4)))
  -		((string= "I" line :end2 1)
  +	(cond ((string= "S" line :end2 1)
  +	       (setf (get-states hstate) (parse-integer line :start 4)))
  +	      ((string= "O" line :end2 1)
  +	       (setf (get-observations hstate) (parse-integer line :start 4)))
  +	      ((string= "I" line :end2 1)
  +	       (setf line (read-line in nil)
  +		     (get-initial-distributions hstate) (make-array-per-space line)))
  +	      ((string= "T" line :end2 1)
  +	       (let ((str-lst nil))
   		 (progn
  -		   (setf line (string-trim '(#\Space #\Tab) (read-line in nil)))
  -		   (if (null line)
  -		       (error 'input-format-error :text "broken HMM file.")
  -		       (setf (get-initial-distributions hstate)
  -			     (make-array-per-space line)))))
  -		((string= "T" line :end2 1)
  -		 (let ((str-lst nil))
  -		   (progn
  -		     (do ((str-line (read-line in nil)
  -				    (read-line in nil)))
  -			 ((or (string= ">" str-line :end2 1)
  -			      (null str-line)))
  -		       (push line str-lst))
  -		     (setf (get-transition-matrix hstate) (make-matrix-per-space (reverse str-lst))))))
  -		((string= "M" line :end2 1)
  -		 (let ((str-lst nil))
  -		   (progn
  -		     (do ((str-line (read-line in nil)
  -				    (read-line in nil)))
  -			 ((or (string= ">" str-line :end2 1)
  -			      (null str-line)))
  -		       (push line str-lst))
  -		     (setf (get-measure-matrix hstate) (make-matrix-per-space (reverse str-lst))))))	  		   
  -		(t
  -		 (error 'input-format-error
  -			:text "broken HMM file.")))))
  -      hstate)))
  +		   (do ((str-line (read-line in nil)
  +				  (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))))))
  +	      ((string= "M" line :end2 1)
  +	       (let ((str-lst nil))
  +		 (progn
  +		   (do ((str-line (read-line in nil)
  +				  (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))
  +	      (t
  +	       (error "broken HMM file."))))
  +    hstate)))
   
   (defun print-to-file (hstate file)
     "Store a hmm state information into a file."
  
positive.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))))
  
negative.code: 		       :if-exists :supersede)
      (progn
        (format out "S = ~d~%" (get-states hstate))
        (format out " ~%")
        (format out "O = ~d~%" (get-observations hstate))
        (format out " ~%")
        (format out "I =~%")
        (pprint-array out (get-initial-distributions hstate))
        (format out "~%")
        (format out " ~%")
        (format out "T =~%")
        (pprint-matrix out (get-transition-matrix hstate))
        (format out " ~%")
        (format out "M =~%")
        (pprint-matrix out (get-measure-matrix hstate)))))
  
  (defun forward (hstate times o)
    "Forward algorithm."
  