sig
  type guid = OBus_uuid.t
  type t = { name : string; args : (string * string) list; }
  val name : OBus_address.t -> string
  val args : OBus_address.t -> (string * string) list
  val make : name:string -> args:(string * string) list -> OBus_address.t
  val arg : string -> OBus_address.t -> string option
  val guid : OBus_address.t -> OBus_address.guid option
  exception Parse_failure of string * int * string
  val of_string : string -> OBus_address.t list
  val to_string : OBus_address.t list -> string
  val system : OBus_address.t list Lwt.t Lazy.t
  val session : OBus_address.t list Lwt.t Lazy.t
  val default_system : OBus_address.t list
  val default_session : OBus_address.t list
end