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