Fix.CompactQueue
type 'a t
val create : unit -> 'a t
val is_empty : 'a t -> bool
val add : 'a -> 'a t -> unit
exception Empty
val take : 'a t -> 'a