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