DouKaku?

(use text.csv)

(define (splitCSV str)
  (define (numberling l)
    (let loop ((l l) (n 1))
      (unless (null? l)
              (format #t "~d => ~a~%" n (car l))
              (loop (cdr l) (+ n 1)))))
  (call-with-input-string str
    (lambda (in)
      (port-for-each
       (pa$ numberling)
       (pa$ (make-csv-reader #\,) in)))))