`sig
exception Empty_list
exception Invalid_index of int
type 'a t
val empty : unit -> 'a RefList.t
val is_empty : 'a RefList.t -> bool
val clear : 'a RefList.t -> unit
val length : 'a RefList.t -> int
val copy : dst:'a RefList.t -> src:'a RefList.t -> unit
val copy_list : dst:'a RefList.t -> src:'a list -> unit
val copy_enum : dst:'a RefList.t -> src:'a Enum.t -> unit
val of_list : 'a list -> 'a RefList.t
val to_list : 'a RefList.t -> 'a list
val of_enum : 'a Enum.t -> 'a RefList.t
val enum : 'a RefList.t -> 'a Enum.t
val add : 'a RefList.t -> 'a -> unit
val push : 'a RefList.t -> 'a -> unit
val add_sort : ?cmp:('a -> 'a -> int) -> 'a RefList.t -> 'a -> unit
val first : 'a RefList.t -> 'a
val last : 'a RefList.t -> 'a
val pop : 'a RefList.t -> 'a
val npop : 'a RefList.t -> int -> 'a list
val hd : 'a RefList.t -> 'a
val tl : 'a RefList.t -> 'a RefList.t
val rev : 'a RefList.t -> unit
val iter : ('a -> unit) -> 'a RefList.t -> unit
val find : ('a -> bool) -> 'a RefList.t -> 'a
val rfind : ('a -> bool) -> 'a RefList.t -> 'a
val find_exc : ('a -> bool) -> exn -> 'a RefList.t -> 'a
val exists : ('a -> bool) -> 'a RefList.t -> bool
val for_all : ('a -> bool) -> 'a RefList.t -> bool
val map : ('a -> 'b) -> 'a RefList.t -> 'b RefList.t
val transform : ('a -> 'a) -> 'a RefList.t -> unit
val map_list : ('a -> 'b) -> 'a RefList.t -> 'b list
val sort : ?cmp:('a -> 'a -> int) -> 'a RefList.t -> unit
val filter : ('a -> bool) -> 'a RefList.t -> unit
val remove : 'a RefList.t -> 'a -> unit
val remove_if : ('a -> bool) -> 'a RefList.t -> unit
val remove_all : 'a RefList.t -> 'a -> unit
module Index :
sig
val index_of : 'a RefList.t -> 'a -> int
val index : ('a -> bool) -> 'a RefList.t -> int
val at_index : 'a RefList.t -> int -> 'a
val set : 'a RefList.t -> int -> 'a -> unit
val remove_at : 'a RefList.t -> int -> unit
end
end`