let load_student_form (hpr:string -> unit) = 
  hpr "<form method='post' action=''>\n";
  hpr "File name : ";
  hpr "<input type='file' name='etud_file' size='30' \nonchange='this.form.simple_path.value=get_filename(this.form.etud_file.value);\nthis.form.full_path.value=this.form.etud_file.value;'/>\n";
  hpr "<input type='hidden' name='full_path'/>\n";
  hpr "<input type='hidden' name='simple_path'/>\n";
  hpr "<input type='submit' value='Load' name='action' class='buttonst'/>\n";
  hpr "</form>"