(* $Id: oqueue.mli,v 1.6 2002/08/04 10:32:54 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