let xml_to_student (gnum:int) (x:Xml.xml) =
let nom = Xml.attrib x "nom" in
let pre = Xml.attrib x "pre" in
let log = Xml.attrib x "login" in
let teams = Xml.children x in
let stu = new_student nom pre log gnum in
List.iter (fun y ->
let padd = convert_to_int_list (Xml.attrib y "num") in
let job = string_to_resp(Xml.attrib y "resp") in
let tnum = int_of_string(Xml.attrib y "team") in
let abs = (try int_of_string(Xml.attrib y "absc") with _ -> 0) in
let grad = (try float_of_string(Xml.attrib y "grad") with _ -> -1.) in
increase_team_gpt gnum padd tnum;
set_resp stu padd tnum job ~abs:abs ~grad:grad ();)
teams; stu