anchor.diff:              then
                   terminalNodes.Item index
               else
  -                let t = new TerminalNode(parser.TokenToNumber tokens.[index], packExtension index (index + 1))
  +                let t = new TerminalNode(index, packExtension index (index + 1))
                   sppfNodes.Add t
                   let res = sppfNodes.Count - 1
                   terminalNodes.Set index ((sppfNodes.Count - 1)*1<nodeMeasure>)
  
positive.code:     | Error of string
  
  
  let buildAst<'TokenType> (parser : ParserSourceGLL<'TokenType>) (tokens : seq<'TokenType>) : ParseResult<_> = 
      let tokens = Seq.toArray tokens
      let inputLength = Seq.length tokens
      let nonTermsCountLimit = 1 + (Array.max parser.LeftSide)
  
negative.code:                     newList.Add(z)
                      setP.Add(vertexKey, newList)
                  let outEdges = edges.[slots.[ int u.Label], u.Level]
                  edgesReadCount := !edgesReadCount + 1
                  for edge in outEdges do
                      let sppfNodeOnEdge = edge.Key
                      for slotLevels in edge.Value do   
  