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