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 )