anchor.diff:       member this.Lang = lang
        member this.Graph = drawGraph
   
  +type ParsingFinishedArgs(lang : string) = 
  +    inherit System.EventArgs()
  +    member this.Lang = lang
   
   type TreeGenerationState<'node> = 
       | Start
       | InProgress of 'node * AstNode list
       | End of 'node
  -
  -type ParsingFinishedArgs(lang : string) = 
  -    inherit System.EventArgs()
  -    member this.Lang = lang
   
   
   exception LexerError of string * obj
  
positive.code:         | _ -> failwith "Unexpected state in tree generation"
  
      member this.TokenToPos calculatePos (token : 'TokenType)= 
          let data : string * FSA<char*Position<'br>> = unbox <| tokenData token
          calculatePos <| snd data
  
      member this.GetForestWithToken range = getForestWithToken range
  
  
negative.code:             ResizeArray<string * 'range> * ResizeArray<string * 'range> * ResizeArray<string * 'range>
  
  
  type Processor<'TokenType, 'br, 'range, 'node >  when 'br:equality and  'range:equality and 'node:null  and 'TokenType : equality
      (
          tokenize: Appr<'br> -> Test<ParserInputGraph<'TokenType>, array<Symb<char*Position<'br>>>>
          , parse, translate, tokenToNumber: 'TokenType -> int, numToString: int -> string, tokenData: 'TokenType -> obj, tokenToTreeNode, lang, calculatePos:_->seq<'range>
  