mkTag x a =
    Tag
      (XMLString x)
      (map (uncurry Attr . (XMLString *** XMLString)) a)
mkTag x a =
    Tag
      (XMLString x)
      (map (uncurry Attr . (XMLString *** XMLString)) a)
mkTag x a =
    Tag
      (XMLString x)
      (map (uncurry Attr . (XMLString *** XMLString)) a)