anchor.diff:          | _ -> 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
  +        let data (*: FSA<char*Position<'br>>*) = unbox <| tokenData token
  +        calculatePos data
   
       member this.GetForestWithToken range = getForestWithToken range
   
  
positive.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 
      (
          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>
  
negative.code:      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
  
  
  exception LexerError of string * obj
  