+let test filename query output =
+ Printf.eprintf "Parsing document : %!";
+ let v = time Tree.Binary.parse_xml_uri filename in
+(* Tree.dump v;
+ Printf.eprintf "\n\n\n\n\n%!";
+ Tree.Binary.print_xml_fast stderr v *)
+ Printf.eprintf "Full Traversal\n%!";
+ time (Tree.full_traversal) v;
+ Printf.eprintf "Traversal\n%!";
+ time (Tree.traversal) v;
+ Printf.eprintf "CPP Traversal\n%!";
+ time (Tree.cpp_traversal) v
+
+