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 _ -> ()