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>"