sig   val new_message_request_name :     string -> DBus.Bus.grab_flag list -> DBus.message   val new_message_release_name : string -> DBus.message end