sig
  type t
  val here : Join.Site.t
  val there : Unix.sockaddr -> Join.Site.t
  val listen : Unix.sockaddr -> unit
  val connect : Unix.file_descr -> unit
  val where_from : 'Join.chan -> Join.Site.t
  val equal : Join.Site.t -> Join.Site.t -> bool
  val compare : Join.Site.t -> Join.Site.t -> int
  val at_fail : Join.Site.t -> unit Join.chan -> unit
  val get_local_addr : unit -> Unix.inet_addr
end