anchor.diff:          (len (string-length rest-regex)))
       (if (is-union rest-regex)
         (if (not (union-ugly-p rest-regex))
  -        ()))
  +        (let ((ret-parse (make-union rest-regex)))
       ))
   
   (defun make-union (union-string)
  
positive.code:                          (1+ s-index)))))))
      (list begin-index end-index (+ 2 len))))
  
  (defun deal-with-paren (rest-regex)
    "DEAL-WITH-PAREN
     RETURN:(lst begin-index end-index length+2)"
    (let ((begin-index nil)
  
negative.code:                (add-state nil 'finish)
                 (return)))
              ((eq #\( current-char)
               (let* ((rest-regex (subseq regex-string index))
                      (paren (get-first-paren ())))
                 )
              (t (progn
                   ; Simple State
                   (let ((s-index (add-state current-char nil)))
  