let print_project_txt (hpr:string -> unit) (gnum:int) (padd:paddress) = 
    try (* Check whether this address is correct *)
      ignore(test_validity_address gnum padd);
      let teams = List.sort compare (H.assoc_to_keys (get_group_project_teams gnum padd)) in 
        List.iter (fun tnum -> 
                     if (List.mem tnum !teamssel) || (List.length !teamssel = 0) then 
                       print_team_project_by_group_txt hpr gnum padd tnum;
                  ) teams;
    with _ -> ()