- fprintf err_formatter "Query: %a\n%!" XPath.Ast.print query;
- fprintf err_formatter "Asta: %a\n%!" Asta.print (build_asta());
- fprintf err_formatter "Document:\n%!";
- Tree.print_xml stderr doc (Tree.root doc);
+ let query = query () in
+ let doc = doc () in
+ let asta = build_asta query in
+ fprintf err_formatter "@[<v 0> ##### Query #####@. %a@]@ "
+ XPath.Ast.print query;
+ Asta.print err_formatter asta;
+ fprintf err_formatter "@[<v 0> ##### Doc #####@.%a@]@ "
+ Tree.print_xml doc (Tree.root doc);