`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`