let print_channel ?(date_fmt=default_date_format) fmt ch = let xml = xml_of_channel ~date_fmt ch in Format.fprintf fmt "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n"; Format.fprintf fmt "%s" (Xml.to_string_fmt xml )