xsd <- xsdparse "examples/xml/imdbNoTVDir.xsd"
let (Just (xsd'::Schema,to,from)) = transform xsd (evolution >>> outerMost joinTag >>> toXML')
xml <- xmlparse "examples/xml/imdbNoTVDir.xml"
let (Just xml') = to xml
let (Just xsd'') = schema2Document xsd'
putStrLn $ printXml xsd''
putStrLn $ printXml xml'


xsd <- parseXsdFile "examples/xml/imdb.xsd"
let Just (xsd' :: Schema,to,from) = transform xsd (evolution >>> outerMost joinTag >>> toXML')
xml <- parseXmlFile "examples/xml/imdb.xml"
let Just xml' = to xml
putStrLn (printXml xml')