let print_team_by_group_project_latex_resp (hpr:string -> unit) 
      (gl:student list) (groupnum:int) (padd:paddress) (teamnum:int) = 
    hpr "\n\n\\begin{center}\\rule{18cm}{1pt}\\end{center}\n\n";
    hpr (Printf.sprintf "\\noindent\\textsf{\\Large Equipe n\\textordmasculine %d :} \n\\smallskip\n\n" teamnum);
    hpr "\\noindent\\begin{tabular}{|l|p{1.6cm}|c|c|c|c|c|c|c|c|c|c|}\\hline\n\n";
    hpr "& Login & \\multicolumn{3}{c|}{1} & \\multicolumn{3}{c|}{2} & \n";
    hpr "\\multicolumn{3}{c|}{3} & Total \\\\\\hline\n";
    (* Print responsibilities *)
    let caps = get_captains    gl groupnum padd teamnum in
    let secs = get_secretaries gl groupnum padd teamnum in
      List.iter (fun stu -> print_student_latex_in_table_by_resp hpr stu padd) 
        (caps@secs);
    (* Print programmers *)
    let pro = get_progs gl groupnum padd teamnum in
      List.iter (fun stu -> print_student_latex_in_table_by_resp hpr stu padd) pro;
      print_side_table_latex hpr