sig   type 'a t = 'Queue.t   exception Empty   val create : unit -> 'BatQueue.t   val add : '-> 'BatQueue.t -> unit   val push : '-> 'BatQueue.t -> unit   val take : 'BatQueue.t -> 'a   val pop : 'BatQueue.t -> 'a   val peek : 'BatQueue.t -> 'a   val top : 'BatQueue.t -> 'a   val clear : 'BatQueue.t -> unit   val copy : 'BatQueue.t -> 'BatQueue.t   val is_empty : 'BatQueue.t -> bool   val length : 'BatQueue.t -> int   val iter : ('-> unit) -> 'BatQueue.t -> unit   val map : ('-> 'b) -> 'BatQueue.t -> 'BatQueue.t   val filter : ('-> bool) -> 'BatQueue.t -> 'BatQueue.t   val filter_map : ('-> 'b option) -> 'BatQueue.t -> 'BatQueue.t   val filter_inplace : ('-> bool) -> 'BatQueue.t -> unit   val fold : ('-> '-> 'b) -> '-> 'BatQueue.t -> 'b   val transfer : 'BatQueue.t -> 'BatQueue.t -> unit   type 'a enumerable = 'BatQueue.t   val enum : 'BatQueue.t -> 'BatEnum.t   val of_enum : 'BatEnum.t -> 'BatQueue.t   val print :     ?first:string ->     ?last:string ->     ?sep:string ->     ('BatInnerIO.output -> '-> unit) ->     'BatInnerIO.output -> 'BatQueue.t -> unit   val compare : 'BatOrd.comp -> 'BatQueue.t BatOrd.comp   val equal : 'BatOrd.eq -> 'BatQueue.t BatOrd.eq   module Exceptionless :     sig       val take : 'BatQueue.t -> 'a option       val peek : 'BatQueue.t -> 'a option     end end