anchor.diff:                      if isOneRule rule then
                           newRule mainRule 
                               (match rule.body with
  -                             |PSeq(elements, actionCode, lbl) -> (match elements.Head.rule with PRef(t, _) -> (fst t) | x -> "")
  +                             |PSeq(elements, actionCode, lbl) -> (match elements.Head.rule with PRef(t, _) -> fst t | x -> "")
                                |x -> ""
                               )
                       else
  
positive.code:                     body=numberBody
                  }
              numberEpsRef |> List.collect
                  (fun eps ->
                      addRule numberRule eps)
          else
              []
              
              
      //--Добавляем новые правила--------------------------------------------------------------------
  
negative.code: 
      //--Функция для проверки вхождения эпсилон-правила---------------------------------------------
  
      let isEps s = 
          epsList |> List.collect
              (fun eps -> if s = eps then [eps] else [])
      
      //--Список эпсилон-правил входящих в данное правило--------------------------------------------     
  
      let rec epsInRule elements = 
          elements |> List.collect
                      (fun elem ->
                          match elem.rule with
  