anchor.diff:                  (t, (brs :?> array<AbstractLexer.Core.Position<ICSharpLiteralExpression>>).[0].back_ref.GetDocumentRange())
                   |> addLError
                   None
  +
           tokenize graph |> Option.map parse
           |> Option.iter
               (function 
                | Yard.Generators.RNGLR.Parser.Success (ast, errors) -> 
  -                    forest <- [ast, errors] @ forest
  +                    addAST (ast, errors)
                | Yard.Generators.RNGLR.Parser.Error(_,tok,_,_,errors) -> tok |> Array.iter addPError 
               )
           
  
positive.code:             | JSON.Parser.NUMBER (l,br) -> e "NUMBER" l br
              | JSON.Parser.STRING1 (l,br) -> e "STRING1" l br
              | _ -> failwith "error in addErrorJSON function"
  
          
          let addErrorTSQL tok =
              let e t l (brs:array<AbstractLexer.Core.Position<#ITreeNode>>) =
  
negative.code:     | JSON
  
  type Processor(file) =
      let mutable calcXmlPath = ""
      let mutable jsonXmlPath = ""
      let mutable tsqlXmlPath = ""
      
      let mutable calcForest = []
      let mutable jsonForest = []
      let mutable tsqlForest = []
  
      let mutable nowCalcTreeGen = false
      let mutable nowJsonTreeGen = false
      let mutable nowTsqlTreeGen = false
  
      ///Needs for tree generation for highlighting
      let mutable unprocessed = []
      let mutable count = 0
  