let xml_to_team (gnum:int) (padd:paddress) (x:Xml.xml) = 
    let tnum   = int_of_string (Xml.attrib x "num") in
    let tspec  = (try bool_of_string (Xml.attrib x "spec") with _ -> false) in
    let tname  = Xml.attrib x "name" in
    let tgrade = (try float_of_string (Xml.attrib x "grade") with _ -> !default_grade) in 
      create_team_for_group_project gnum padd tnum tspec;
      update_group_project_team_name  gnum padd tnum tname;
      update_group_project_team_grade gnum padd tnum tgrade