let _ =
   let module U = MQueryUtil in
   let module X = MQueryMisc in
   let t = X.start_time () in
   let ich = Lexing.from_channel stdin in
   let rec aux () =
      let t = X.start_time () in
      U.text_of_query print_string (U.query_of_text ich) "\n";
      Printf.printf "mqtop: query: %s\n" (X.stop_time t);
      flush stdout; aux()
   in
   begin try aux() with End_of_file -> () end;
   Printf.printf "mqtop: done: %s\n" (X.stop_time t)