xsd <- xsdparse "examples/imdbNoTVDir.xsd"
putStrLn $ show $ parsetype xsd
let Just (ddl::DDL,tosql,fromsql) = transform xsd (movieAsMap >>> actorAsMap >>> toRDB')
xml <- xmlparse "examples/imdbNoTVDir.xml"
let Just dml = tosql xml
putStrLn $ sshow dml