let print_team_project_by_group_txt (hpr:string -> unit)
    (gnum:int) (padd:paddress) (tnum:int) = 
    let tsiz = get_gpt_size gnum padd tnum in 
      if (tsiz > 0) then begin 
        hpr (Printf.sprintf "---- Groupe %d ---- Projet %s ---- %s ---- \n"
               gnum (pa_to_string padd) (get_group_project_team_name gnum padd tnum));
        if (!do_assign_resp) then begin
          let caps = get_captains !student_list gnum padd tnum in
          let secs = get_secretaries !student_list gnum padd tnum in 
            hpr "Capt : "
            List.iter (print_student_light hpr) caps; 
            hpr "\n";
            hpr "Secr : "
            List.iter (print_student_light hpr) secs; 
            hpr "\n";
        end;
        let mem = get_progs !student_list gnum padd tnum in 
          List.iter (fun s -> hpr "Prog : ";
                       print_student_light hpr s; hpr "\n";) mem;
      end