anchor.diff:              | :? TerminalNode as t ->
                   if t.Name <> -1 
                   then 
  -                    seq { yield (ReducedTree.Term(indToString t.Name, t))}
  +                    seq { yield (ReducedTree.Term((indToString <| (tokenToNumber this.tokens.[t.Name])), t))}
                   else    
                       Seq.empty
               | :? PackedNode as p ->
  
positive.code:         out.WriteLine("}")
          out.Close()
  
      member this.ReduceTree (tree : NonTerminalNode) (indToString : int -> string) : ReducedTree =
          let rec cleanTree (st : INode)  =
               
              match st with 
  
negative.code:             let shape =
                  match nodeType with
                  | Terminal -> ",shape=box"
                  | NonTerminal -> ",shape=point"
              let color = ""
              out.WriteLine ("    " + num.ToString() + " [label=\"" + label + "\"" + color + shape + "]")
  
  