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