+ let dummy a = N5.dummy (N1.dummy a)
+ let iteri f a =
+ N1.iteri (fun i v _ ->
+ N5.iteri (fun j k l m n v2 b -> f i j k l m n v2 b) v
+ ) a
+
+ let stats a =
+ let d = a.N1.dummy in
+ let len, used =
+ Array.fold_left (fun ((alen,aused) as acc) i ->
+ if i != d then
+ let l, u = N5.stats i in
+ (alen+l, aused+u)
+ else
+ acc) (0, 0) a.N1.line
+ in
+ len, used
+