let get (cave : t) x y =
       try
         cave.(y).(x)
       with 
         | Invalid_argument s -> WALL