1 USING: io io.files sequences xml xml.utilities io.encodings.utf8 ;
4 : print-csv ( table -- ) [ "," join print ] each ;
6 : (msxml>csv) ( xml -- table )
11 "Data" tag-named children>string
15 : msxml>csv ( infile outfile -- )
17 file>xml (msxml>csv) print-csv