let steam_to_xml t = 
    let ref_list = ref [
                   ("num", (pa_to_string t.proj));
                   ("team",(string_of_int t.n));
                   ("resp",(resp_to_string t.r)); ] in 
      if (t.g >= 0.) then ref_list := !ref_list @ [("grad", (string_of_float t.g))];
      if (t.a > 0)   then ref_list := !ref_list @ [("absc", (string_of_int t.a))];
      Xml.Element ("project",!ref_list,[])