let set (cave : t) x y elt =
       Array.set cave.(y) x elt