1 USING: io.files sequences xml xml.traversal io.encodings.ascii kernel ;
4 : (msxml>csv) ( xml -- table )
8 "Data" tag-named children>string
12 : msxml>csv ( outfile infile -- )
13 file>xml (msxml>csv) [ "," join ] map
14 swap ascii set-file-lines ;