let print_project_forge (s:out_channel) (gl:student list) (gnum:int) (padd:paddress) =
(* Actually print the teams *)
let teams = List.sort compare (H.assoc_to_keys (get_group_project_teams gnum padd)) in
List.iter (fun tnum ->
print_team_by_group_project_forge s gl padd gnum tnum
) teams