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; (* Return the student *) stu