let mapi f (cave : t) =
       Array.mapi
         (fun y xs -> 
            Array.mapi 
              (fun x w -> f x y w)
              xs)
         cave