(use utils csv csv-string)

(define parse (csv-parser #\;))

(define (read-file)
	(map csv-record->list (parse (read-all))))

(pp (read-file))