anchor.diff:          out.WriteLine("}")
           out.Close()
   
  -    member this.ReduceTree (tree : NonTerminalNode) (indToString : int -> string) : ReducedTree =
  +    member this.ReduceTree (tokenToNumber : 'TokenType -> int) (indToString : int -> string) : ReducedTree =
           let rec cleanTree (st : INode)  =
                
               match st with 
  
positive.code:                 let child = cleanTree n.First
                  seq{yield ReducedTree.NonTerm(indToString n.Name, n, Seq.toArray child )}
              | _ -> failwith "Unexpected node type."
          Seq.head <| (cleanTree tree)
  
      member this.ReducedTreeToDot (tree : ReducedTree) (indToString : int -> string) (tokenToNumber : 'TokenType -> int) (tokenData : 'TokenType -> obj) (path : string) =
          use out = new System.IO.StreamWriter (path : string)
          out.WriteLine("digraph AST {")
  
  
negative.code:                 | _ -> ()
          out.WriteLine("}")
          out.Close()
        
  
      member this.ExtractFinalPaths =
          let nodeQueue = new Queue<NumNode<_>>()
  