let save_student_list (s:string) = 
  debug (Printf.sprintf "Save    : '%s'" s); 
  Sys.rename s (s^".save"); (* Saves a copy of the file *)
  let out_chan = open_out s in 
    I.print_student_list_xml (output_string out_chan) !student_list;
    close_out out_chan