sig
  val index_of : 'BatRefList.t -> '-> int
  val index : ('-> bool) -> 'BatRefList.t -> int
  val at_index : 'BatRefList.t -> int -> 'a
  val set : 'BatRefList.t -> int -> '-> unit
  val remove_at : 'BatRefList.t -> int -> unit
end