let string_of_wall w = match w with
       | WALL -> "#"
       | FLOOR -> "."