let saveFile (fileName : string) (txt : string) : unit = let channel = open_out fileName in output_string channel txt; close_out channel