(print "Debug starts")

(define csv_list '())
(for f (ls-dir "tests/divi")
     (if (regex-search? f "^divi_2021-02-0[1].*\.csv$")
        (do 
            (define filename (+ "tests/divi/" f))
            ; (print filename)
            (define csv_str (read-file filename))
            (define csv_file_list (parse-csv csv_str))
            (define csv_list (+ csv_list csv_file_list))
            ; (for x csv_file_list
                ; (print x)
            ;     (define csv_list (+ csv_list csv_file_list))
            ;     )
        )
     ))

(for x csv_list
    (print x))

; (if (> 1 10)
;    (print "aaa"))

(print "Debug ends")