sig
  val cots_connect : string -> string -> Unix.file_descr
  type connector =
      [ `Direct of Rpc_client.connector * Rpc.protocol | `Keyenvoy of string ]
  val keyserv_connector : Rpc_xti_client.connector
end