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