let reload_student_form (hpr:string -> unit) = 
  hpr "<form method='post' action=''>\n";
  hpr "<input type='submit' value='Reload' name='action' class='buttonst'/>\n";
  hpr "</form>"