sig
  type 'a t = 'a list * 'a list
  val empty : 'a CCList.Zipper.t
  val is_empty : 'a CCList.Zipper.t -> bool
  val to_list : 'a CCList.Zipper.t -> 'a list
  val to_rev_list : 'a CCList.Zipper.t -> 'a list
  val make : 'a list -> 'a CCList.Zipper.t
  val left : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val left_exn : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val right : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val right_exn : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val modify :
    ('a option -> 'a option) -> 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val insert : 'a -> 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val remove : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val is_focused : 'a CCList.Zipper.t -> bool
  val focused : 'a CCList.Zipper.t -> 'a option
  val focused_exn : 'a CCList.Zipper.t -> 'a
  val drop_before : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val drop_after : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
  val drop_after_and_focused : 'a CCList.Zipper.t -> 'a CCList.Zipper.t
end