let print cave =
       print_string (string_of_cave cave)