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