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