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