sig type 'a t = 'a -> unit Lwt.t end