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: 		    (length (first lst)))
  	      :initial-contents lst))
  
  (defun parse-number (str &key (start 0) (end (length str)))
    )
  
  (defun delimiterp (c)
    (or (char= c #\Space)
        (char= c #\Tab)))
  