let cave1 = [|[|FLOOR;WALL;FLOOR;FLOOR;WALL;FLOOR|];
                   [|FLOOR;WALL;WALL;WALL;WALL;FLOOR|];
                   [|FLOOR;WALL;FLOOR;FLOOR;WALL;FLOOR|];
                   [|WALL;WALL;FLOOR;FLOOR;WALL;FLOOR|];
                   [|FLOOR;WALL;WALL;WALL;WALL;FLOOR|];
                   [|FLOOR;FLOOR;FLOOR;FLOOR;FLOOR;FLOOR|];|]