Unix.openfile name [ Unix.O_WRONLY; Unix.O_TRUNC; Unix.O_CREAT ] 0o666,
Unix.close
in
+ ignore (Unix.write fd "<xml_result>\n" 0 13);
iter (fun node -> Tree.print_xml v node fd) l;
Tree.flush v fd;
+ ignore (Unix.write fd "</xml_result>\n" 0 14);
finish fd
end