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