anchor.diff:              let treeNodeList = translate nextTree errors :> seq<ITreeNode>
               treeNodeList.ToTreeNodeCollection().First()
   
  +
       member this.GetForestWithToken range = 
           let translate = 
               match language with
  
positive.code:             let tokenData = 
                  match language with
                  | Calc -> Calc.AbstractParser.tokenData
  //                | JSON -> JSON.Parser.tokenData 
  //                | TSQL -> tokenData
              
              let (_ : string), (position : AbstractLexer.Core.Position<ICSharpLiteralExpression>[]) 
                  = unbox <| tokenData token
  
negative.code:                     xmlPath <- Calc.xmlPath
                      language <- Calc
                      processLang graph Calc.tokenize Calc.parse lexerErrors.Add  addError Calc.translate Calc.printAstToDot
                  | JSON -> 
                      xmlPath <- JSON.xmlPath
                      language <- JSON
                      processLang graph JSON.tokenize JSON.parse lexerErrors.Add  addErrorJSON JSON.translate JSON.printAstToDot
                  | TSQL -> 
                      xmlPath <- TSQL.xmlPath
                      language <- TSQL
                      processLang graph TSQL.tokenize TSQL.parse lexerErrors.Add  addErrorTSQL TSQL.translate TSQL.printAstToDot
              )
  
          lexerErrors, parserErrors
  