anchor.diff:                          currentGSSNode := create !currentVertexInInput label !currentGSSNode !structures.CurrentN
   
                           for edge in input.OutEdges !currentVertexInInput do
  -                            let curToken = parser.TokenToNumber ( edge.Tag)
  +                            let curToken = parser.TokenToNumber edge.Tag
   
                               let index = getIndex curSymbol curToken
                               let key =  int((int32 curSymbol <<< 16) ||| int32 (curToken - parser.NonTermCount))    
  
positive.code:     else
          let slots = parser.Slots
          let errors = new SysDict<int64, SysDict<int<nodeMeasure>, Vertex*int>>()   
          let setU = Array.zeroCreate<SysDict<int, SysDict<int64, ResizeArray<int<nodeMeasure>>>>> (input.VertexCount )///1
          let structures = new ParserStructures<'TokenType>(input.VertexCount, parser.StartRule)
          let setR = structures.SetR
          let epsilonNode = structures.EpsilonNode
  
negative.code:                                 let newR = ref !structures.CurrentR
  
                                  if !structures.CurrentN = structures.Dummy
                                  then newN := getNodeT oe
                                  else newR := getNodeT oe
  
                                  let newVertexInInput = oe.Target
                                  let newLabel = packLabel rule (position + 1)
                                  if !newR <> structures.Dummy
                                  then newN := structures.GetNodeP findSppfNode findSppfPackedNode structures.Dummy newLabel !newN !newR
  
                                  structures.PushContext newVertexInInput newLabel !currentGSSNode !newN !newR
                      else 
  