anchor.diff:      val lbl: int<labelMeasure>
       val node: int<nodeMeasure>
       new (l,n) = {lbl=l; node=n}
  -
   
   let buildAst<'TokenType> (parser : ParserSourceGLL<'TokenType>) (tokens : seq<'TokenType>) : ParseResult<_>  = 
       let tokens = seq {yield! tokens; yield parser.EOF}
  
positive.code:         let currentN = ref <| dummy
          let currentR = ref <| dummy
  
          let m = ref 0
          let resultAST = ref None
          let packedNodesReadCount = ref 0
          let packedNodesWriteCount = ref 0
  
negative.code:                         term.Extension 
                      | _ -> failwith "Smth strange, Nastya" 
                      
                  let y = findSppfNode label (packExtension (getLeftExtension leftExt) (getRightExtension rightExt))
                  ignore <| findSppfPackedNode y label leftExt rightExt currentLeft currentRight
                  y
              else
                  let y = findSppfNode label (packExtension (getLeftExtension rightExt) (getRightExtension rightExt))
                  ignore <| findSppfPackedNode y label rightExt rightExt dummyAST currentRight 
                  y
              
  