Kxclib.Queue
type 'x t
val empty : 'x t
val is_empty : 'x t -> bool
val push : 'x -> 'x t -> 'x t
val push_front : 'x -> 'x t -> 'x t
val pop : 'x t -> ('x * 'x t) option
val peek : 'x t -> ('x * 'x t) option