val n_arrays_iter : f:('a list -> unit) -> 'a array list -> unit