let ich = Lexing.from_channel stdin in
let rec aux () =
let t = U.start_time () in
- U.text_of_query print_string (U.query_of_text ich) "\n";
+ U.text_of_query print_string "\n" (U.query_of_text ich);
Printf.printf "mqtop: query: %s\n" (U.stop_time t);
flush stdout; aux()
in