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