readme entry

tmp/malformed_program.lsp

@@ -0,0 +1,25 @@
+(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")