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