let cave2 = [|[|FLOOR;FLOOR;FLOOR;FLOOR|]; 
                   [|FLOOR;FLOOR;FLOOR;FLOOR|]; 
                   [|FLOOR;FLOOR;FLOOR;FLOOR|];
                   [|FLOOR;FLOOR;FLOOR;FLOOR|]|]