-val find : 'a t -> int -> 'a
-
-val add : 'a t -> int -> 'a -> unit
-
-val dummy : 'a t -> 'a
-
-val to_array : 'a t -> 'a array
-
-module Lvl2 :
- sig
+ val create : int -> 'a -> 'a t
+ val find : 'a t -> int -> 'a
+ val add : 'a t -> int -> 'a -> unit
+ val dummy : 'a t -> 'a
+ val iteri : (int -> 'a -> bool -> unit) -> 'a t -> unit
+end