module Main(main) where

import DTD_Root
import Xml2Haskell(readXml,writeXml)

main = do
  d <- read_test_in
  writeXml "test-out.xml" d
  where read_test_in :: IO Root
        read_test_in = readXml "test-in.xml"