let map f (cave : t) =
       Array.map (fun xs -> Array.map f xs) cave