+ "-r", Arg.Set_int(repeat),
+ " repeat query execution n time (benchmarking only, default 1)";
+
+ "-doc-stats", Arg.Set(docstats),
+ " Compute document statistics (performs full traversal)";
+
+ "-v", Arg.Set(verbose), " verbose mode"; ] @
+IFNDEF NTRACE
+THEN [
+ "-log", Arg.String (set_logger),
+ "<logger1:l1,...,loggern:ln> enable logging with the specified level. Valid loggers are: "
+ ^ (pretty_loggers ())
+ ]
+ELSE []
+END
+
+let real_spec =
+ spec @ [
+ "-", Arg.Unit (fun () -> anon_fun "-"), "";