S.MsgBox
type 'a t
val create : unit -> 'a t
val put : 'a t -> 'a -> unit Thread.t
val get : 'a t -> 'a Thread.t