(print "Debug starts")

; add support for ()

(print "(member '(1 2 3) 1:" (member '(1 2 3) 1))
(print "(member '(1 2 3) 3:" (member '(1 2 3) 3))
(print "(member '(1 2 3) 30:" (member '(1 2 3) 30))


(print "result of (and (> 2 1) (> 2 1)): " (and (> 2 1) (> 2 1)))
(print "result of (or (> 2 1) (> 2 1)):  " (or (> 2 1) (> 2 1)))
(print "result of (and (> 2 1) (> 1 2)): " (and (> 2 1) (> 1 2)))
(print "result of (or (> 2 1) (> 1 2)):  " (or (> 2 1) (> 1 2)))
(print "result of (and (> 1 1) (> 1 2)): " (and (> 1 1) (> 1 2)))
(print "result of (or (> 1 1) (> 2 1)):  " (or (> 1 1) (> 1 2)))

;; (print (member '(1 2 3) 1))
;; (print (member '(1 2 3) 10))


(define csv_list '())
(for f (ls-dir "tests/divi")
     (if (regex-search? f "^divi.*\.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_list (print x))

(print (len csv_list))

(define my_tickers '("WFC" "AIG"))

; (print (filter (lambda (x) (= (first x) "CLX")) csv_list))
(print (filter (lambda (x) (member my_tickers (first x))) csv_list))

(print "Debug ends")