let rec loop odot ohtml node parent =
if node == T.nil then () else begin
let s_node = "node" ^ (string_of_int (T.preorder tree node)) in
fprintf odot "%s[ id=\"%s\" label=\"%s\"];\n"
let rec loop odot ohtml node parent =
if node == T.nil then () else begin
let s_node = "node" ^ (string_of_int (T.preorder tree node)) in
fprintf odot "%s[ id=\"%s\" label=\"%s\"];\n"