let makecave1 x y p =
       map (fun x -> 
              if (Random.int 100) < p
              then WALL
              else FLOOR)
         (make x y)