sig   type t = Fut.queue   val concurrent : Fut.queue   val create : ?label:string -> unit -> Fut.queue   val label : Fut.queue -> string end