anchor.diff:              (function 
                   | Yard.Generators.ARNGLR.Parser.Success(tree) ->
                       forest <- (tree, new ErrorDictionary<'TokenType>()) :: forest
  +
                       otherForest <- new OtherTree<'TokenType>(tree) :: otherForest
                       parsingFinished.Trigger(new ParsingFinishedArgs(lang))
   
  
positive.code:         new LexingFinishedArgs<'node>(treeNodes, lang, drawGraph)
  
      let processLang graph addLError addPError addSError =
  //        let tokenize g =
  //            try 
  //                tokenize g
  //                |> Some 
  //            with
  //            | LexerError(t,grToken) ->
  //                (t, (grToken :?> GraphTokenValue<'br>).Edges |> Seq.nth 0 |> fun e -> e.BackRef |> getDocumentRange)
  //                |> addLError
  //                None
  //        
  //        let tokenizedGraph = tokenize graph         
      
          let tokenizedGraph = 
              match tokenize graph with
              | Success res -> res |> Some
              | Error errors -> 
                  errors 
                  |> Array.map (function Smbl e -> fst e |> string, (e |> snd) |> getDocumentRange | e -> failwithf "Unexpected tocenization result: %A" e)
                  |> Array.iter addLError 
                  None
  
          if tokenizedGraph.IsSome
          then 
              let lexFinishedArgs = prepareToTrigger tokenizedGraph.Value tokenToTreeNode 
              lexingFinished.Trigger(lexFinishedArgs)
  
          tokenizedGraph 
          |> Option.map
  
negative.code:         generationState
  
      let getForestWithToken range = 
  
          forest
          |> List.map
              (
                  fun (ast, errors) -> 
                      let trees = ast.GetForestWithToken range <| this.TokenToPos calculatePos
                      trees
                      |> List.map (fun tree -> this.TranslateToTreeNode tree errors)
              )
          |> List.concat
          |> ResizeArray.ofList
  
      member this.GetNextTree index =         
          let state = getNextTree 0//index
  