let iter f f' (cave : t) =
       Array.iter (fun xs -> Array.iter f xs; f' ()) cave