sig val get_supported : t -> int Lwt.t val get_enabled : t -> int Lwt.t val set_enabled : t -> bool -> int Lwt.t end