sig
  val connect :
    ?timeout:float ->
    ?ping:string -> string -> int -> 'a -> 'a Procord_connection.t
  val close_nicely : ?timeout:float -> 'a Procord_connection.t -> unit
  val send : 'a Procord_connection.t -> string -> unit
  val receive : 'a Procord_connection.t -> int -> string option
end