- let r = I.execute handle (U.query_of_text ich) in
-(* U.text_of_result log r "\n";
-*) Printf.printf "mqitop: query: %s,%i\n" (U.stop_time t) (List.length r);
- flush stdout; aux()
+ let r = I.execute handle (F.query_of_text ich) in
+(* F.text_of_result log r "\n";
+*) Printf.eprintf "mqitop: query: %s,%i\n" (U.stop_time t) (List.length r);
+ flush stderr; aux()