sig val send_no_reply : (Lwt_io.input_channel * Lwt_io.output_channel) Lwt_pool.t -> string -> unit Lwt.t val send_with_reply : (Lwt_io.input_channel * Lwt_io.output_channel) Lwt_pool.t -> string -> MongoReply.t Lwt.t end