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,[])