let update_group_project_team_grade gnum pnum tnum g =
do_something_group_project (fun p -> try
let team = H.get_assoc p.teams tnum in
H.update_assoc p.teams tnum (set_team_grade team g);
with _ -> ()
) (fun () -> ()) gnum pnum