let create_new_team_for_group_project gnum padd =
do_something_group_project (fun p ->
let team_nums = H.assoc_to_keys p.teams in
let new_number = (List.fold_left max 0 team_nums) + 1 in
H.update_assoc p.teams new_number (make_team new_number))
(fun () -> ()) gnum padd