sig
  type 'a t
  val shutdown :
    'a Async.Std.Socket.t -> [ `Both | `Receive | `Send ] -> unit
  module Address : sig type t end
end