let makecave2 x y =
       caveify
         (caveify
            (caveify
               (map (fun x -> 
                       if (Random.int 100) < 45
                       then WALL
                       else FLOOR)
                  (make x y))
               5)
            5)
         5