let get_group_project_team_grade gnum pnum tnum =
do_something_group_project (fun p -> try
let team = H.get_assoc p.teams tnum in
let grad = get_team_grade team in
if (grad = (-1.)) then !(p.dgrad) else grad
with _ -> !(p.dgrad)) (fun () -> !default_grade) gnum pnum