anchor.diff:            (state-out1 state)
             (state-out2 state)))
   
  +(defmacro access-state (index)
  +  `(aref trans-table ,index))
  +
   (defun add-state (match attrib)
     "ADD-STATE
      make a state and add it to TRANS-TABLE.
      RETURN: new state location"
  -  (setf (aref trans-table index-trans-table)
  +  (setf (access-state index-trans-table)
           (let ((s (make-state)))
             (setf (state-match s) match)
             (setf (state-attrib s) attrib)
  
positive.code:                  (incf index (1- (get-ret 'len ret-parse)))))
                (t ; Simple State
                 (let ((s-index (add-state nil '∈)))
                   (setf (state-out1 (aref trans-table last-end-index))
                         s-index)
                   (setf (state-attrib (aref trans-table last-end-index))
                         nil)
                   (setf (state-match (aref trans-table last-end-index))
                         current-char)
                   (set-begin-end-f last-end-index s-index)
                   ))
  
negative.code:     (defparameter index-trans-table 0))
    (let* ((ret-parse (parse-regex regex-string))
           (finish (get-ret 'end ret-parse)))
      (setf (state-attrib (access-state finish)) 'fi))
    (print-trans-table))
  
  (defun parse-regex (regex-string &optional begin)
  