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"