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 : 'a 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