Module Miou.Sequence

type 'a t
type 'a node
type direction =
  1. | Right
  2. | Left
exception Empty
val create : unit -> 'a t
val take : direction -> 'a t -> 'a
val peek_node : direction -> 'a t -> 'a node
val add : direction -> 'a t -> 'a -> 'a node
val drop : 'a t -> unit
val length : 'a t -> int
val exists : ('a -> bool) -> 'a t -> bool
val iter : f:('a -> unit) -> 'a t -> unit
val iter_node : f:('a node -> unit) -> 'a t -> unit
val is_empty : 'a t -> bool
val remove : 'a node -> unit
val data : 'a node -> 'a
val to_list : 'a t -> 'a list