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