let och = open_out fname in
P.fprintf och "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n\n";
P.fprintf och "<!-- %s -->\n\n" msg;
P.fprintf och "<xsl:stylesheet version=\"1.0\"\n";
let och = open_out fname in
P.fprintf och "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n\n";
P.fprintf och "<!-- %s -->\n\n" msg;
P.fprintf och "<xsl:stylesheet version=\"1.0\"\n";