sig
  type t
  val create : string -> int -> LO.Address.t
  val default : unit -> LO.Address.t
end