sig
  val take : 'BatQueue.t -> 'a option
  val peek : 'BatQueue.t -> 'a option
end