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