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