xsd <- parseXsdFile "examples/xml/imdb.xsd"
putStrLn $ show $ parsetype xsd
let Just (ddl :: DDL,tosql,fromsql) = transform xsd (movieAsMap >>> actorAsMap >>> toDB)
xml <- parseXmlFile "examples/xml/imdb.xml"
let Just dml = tosql xml
putStrLn $ sshow dml