let give_mark_to_team (groupnum:int) (padd:paddress) (teamnum:int) (grade:float) =
debug (Printf.sprintf "Grade : %.1f to team %d (g.%d) in project %s"
grade teamnum groupnum (pa_to_string padd));
update_group_project_team_grade groupnum padd teamnum grade