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