let save_student_form (hpr:string -> unit) =
hpr "<form method='post' action =''>\n";
hpr (Printf.sprintf "<input type='hidden' value='%s' name='etud_file'/>\n" !etud_file);
hpr "<input type='submit' value='Save' name='action' class='buttonst'/>\n";
hpr "</form>\n"