sig
  val suspend : t -> int -> int Lwt.t
  val suspend_hybrid : t -> int -> int Lwt.t
  val hibernate : t -> int Lwt.t
  val shutdown : t -> int Lwt.t
  val reboot : t -> int Lwt.t
  val set_power_save : t -> bool -> int Lwt.t
end