let print_student_list_txt (hpr:string -> unit) (gl:student list) = let paddl = get_all_project_addresses_for gl in List.iter (print_student_txt hpr gl paddl) gl