type 'a t
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 to_array : 'a t -> 'a array
-module Lvl2 :
- sig
+
+module Lvl1 :
+sig
+
+ type 'a t
+
+ 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 to_array : 'a t -> 'a array
+
+end
+
+module Lvl2:
+sig
type 'a t
val dummy_line : 'a t -> 'a array
val to_array : 'a t -> 'a array array
- end
+end
module Lvl3 :
sig
val add : 'a t -> int -> int -> int -> 'a -> unit
val dummy : 'a t -> 'a
val to_array : 'a t -> 'a array array array
+
end