(* $Id: oqueue.mli.txt,v 1.2 2005/02/17 07:41:27 garrigue Exp $ *)

class ['a] c : unit -> object
  val q : 'a Queue.t
  method add : 'a -> unit
  method take : 'a
  method peek : 'a
  method clear : unit
  method length : int
  method is_empty : bool
  method iter : f:('a -> unit) -> unit
  method fold : f:('b -> 'a -> 'b) -> 'b -> 'b
end