type 'a t = 'a Lwt_mvar.t
val create : unit -> 'a t
val put : 'a t -> 'a -> unit Lwt.t
val get : 'a t -> 'a Lwt.t
