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