sig
type 'a t = 'a Squeue.t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.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 ounit_tests : unit -> OUnit.test
end