anchor.diff:      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 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
  
positive.code:                     if true//checkConj res 
                      then        
                              let r1 = new Tree<_> (tokens.ToArray(), res, parser.rules)
                              //printf "%A" r1
                              (*let isSubpath l1 l2 =
                                  List.length l1 <= List.length l2 
  
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 
  