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 _ -> falsein
    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