sig
  val eject : t -> string list -> int Lwt.t
  val close_tray : t -> string list -> int Lwt.t
end