let string_of_cave cave =
       fold_right
         (fun w rest -> (string_of_wall w) ^ rest) 
         (fun a b -> a ^ "\n" ^ b) 
         cave ""