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