let print_group ?(encoding="ISO-8859-1") fmt g = let xml = xml_of_group g in Format.fprintf fmt "<?xml version=\"1.0\" encoding=\"%s\" ?>\n" encoding; Format.fprintf fmt "%s" (Xml.to_string_fmt xml )