sig val set_power : t -> bool -> int Lwt.t val get_power : t -> int Lwt.t end