anchor.diff:                              res
                           match curEdge with
                           | Some edge ->
  -                            snd edge.Tag := true
  -                            let curToken = parser.TokenToNumber (fst edge.Tag)
  +                            //snd edge.Tag := true
  +                            let curToken = parser.TokenToNumber ( edge.Tag)
                               //currentPath := edge :: currentPath.Value
                               if !structures.CurrentN = structures.Dummy
                               then 
  
positive.code:     new (p,l) = {pos = p; lbl = l}
  
  let buildAbstractAst<'TokenType> (parser : ParserSourceGLL<'TokenType>) (input : ParserInputGraph<'TokenType>) : ParserCommon.ParseResult<_> = 
      let input = input
      let input = 
          let h = input.Edges |> Seq.map (fun e -> new ParserEdge<'TokenType * ref<bool>>(e.Source, e.Target, (e.Tag , ref false)))
          let g = new ParserInputGraph<'TokenType * ref<bool>>((input.InitStates : int[]), (input.FinalStates : int[]))
          g
      
      if input.EdgeCount = 0 then
        //  if parser.AcceptEmptyInput then
  
negative.code:                    // then
                      if parser.NumIsTerminal curSymbol || parser.NumIsLiteral curSymbol
                      then
                          let isEq (sym : int) (elem : ParserEdge<'TokenType>) = sym = parser.TokenToNumber (elem.Tag)
                          
                          let curEdge = 
                              let mutable  c = false
  