let out = output_string och in
xml out "1.0" "UTF-8"; doctype out obj_root system;
let ba = E.bind_attrs ~name:(U.name_of_uri u, true) () in
let out = output_string och in
xml out "1.0" "UTF-8"; doctype out obj_root system;
let ba = E.bind_attrs ~name:(U.name_of_uri u, true) () in