sig
  val call : ('a, 'b) OBus_member.Method.t -> OBus_proxy.t -> 'a -> 'b Lwt.t
  val call_with_context :
    ('a, 'b) OBus_member.Method.t ->
    OBus_proxy.t -> 'a -> (OBus_context.t * 'b) Lwt.t
  val call_no_reply :
    ('a, 'b) OBus_member.Method.t -> OBus_proxy.t -> 'a -> unit Lwt.t
end