anchor.diff:  (defpackage :hmm-algorithms
     (:nicknames :hmm :cl-hmm)
     (:use :cl)
  -  (:export :init-from-file
  +  (:export :init-hmm
  +	   :init-from-file
   	   :print-to-file
   	   :forward
   	   :backward
  
positive.code:       (progn
  	(setf nums nil)
  	(dolist (num (split-per-space str))
  	  (push (parse-integer num) nums))
  	(progn
  	  (setf nums (reverse nums))
  	  (push nums nums-m))))
  
negative.code: (defun make-array-per-space (str)
    (let ((nums nil))
      (dolist (num (split-per-space str))
        (push (parse-number num) nums))
      (list-array (reverse nums))))
  
  (defun make-matrix-per-space (str-lst)
  