sig
  type 'a t = 'a Squeue.t
  val create : int -> 'a t
  val push : 'a t -> 'a -> unit
  val push_uncond : 'a t -> 'a -> unit
  val push_or_drop : 'a t -> 'a -> bool
  val length : 'a t -> int
  val pop : 'a t -> 'a
  val lpop : 'a t -> 'a * int
  val transfer_queue_in : 'a t -> 'a Std_internal.Queue.t -> unit
  val transfer_queue_in_uncond : 'a t -> 'a Std_internal.Queue.t -> unit
  val transfer_queue : 'a t -> 'a Std_internal.Queue.t -> unit
  val transfer_queue_nowait : 'a t -> 'a Std_internal.Queue.t -> unit
  val clear : 'a t -> unit
  val wait_not_empty : 'a t -> unit
  val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
  val ounit_tests : unit -> OUnit.test
end