Paste: CSV concision experiment

USING: csv grouping io io.encodings.utf8 io.files namespaces sequences         
;
IN: csv-test

! -----------------------------------------------------------  
: sample-data ( data -- )
    utf8 file-lines 4 group output-stream get write-csv ;