(for-each
display
(flatten
(sxml:sxml->xml
'(*TOP*
(@@
(*NAMESPACES*
(rdf "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
(rodf "http://www.resources-of-different-family.com")))
(*PI* xml "version=\"1.0\"")
(rdf:RDF
(rdf:Description
(@ (rdf:about "http://www.w3.org/TR/rdf-syntax-grammar"))
(rodf:editor
(rdf:Description
(rodf:fullName "Dave Beckett")))))))))
=>
<*TOP*><@@><*NAMESPACES*>http://www.w3.org/1999/02/22-rdf-syntax-ns#http://www.resources-of-different-family.com*NAMESPACES*>@@><*PI*>version="1.0"*PI*>Dave Beckett*TOP*>