sig
  type 'a arr = 'a array
  val create : 'a -> 'a array
  val copy : 'a array -> 'a array
  val get : 'a array -> int -> 'a
  val set : 'a array -> int -> 'a -> unit
  val reset : 'a array -> 'a -> unit
  val iter : (int -> 'a -> 'b) -> 'a array -> unit
  val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b array -> 'a
  val fold_right : ('a -> 'b -> 'b) -> 'a array -> 'b -> 'b
  val of_list : 'a list -> 'a array
  exception No
  val for_all : ('a -> bool) -> 'a array -> bool
  val for_all2 : ('a -> 'b -> bool) -> 'a array -> 'b array -> bool
end