2 let module U = MQueryUtil in
3 let module X = MQueryMisc in
4 let t = X.start_time () in
5 let ich = Lexing.from_channel stdin in
7 let t = X.start_time () in
8 U.text_of_query print_string (U.query_of_text ich) "\n";
9 Printf.printf "mqtop: query: %s\n" (X.stop_time t);
12 begin try aux() with End_of_file -> () end;
13 Printf.printf "mqtop: done: %s\n" (X.stop_time t)