sig
  type t
  val create : unit -> Pvem_lwt_unix.LIGHT.t
  val try_to_pass :
    Pvem_lwt_unix.LIGHT.t -> (unit, 'a) Pvem_lwt_unix.Deferred_result.t
  val green : Pvem_lwt_unix.LIGHT.t -> unit
end