Text.XML.HaXml.DtdToHaskell.Convert
dtd2TypeDef