(print "Debug starts")

(include "tmp/example.lisp")
(print "sorted: " (qs '(10 9 8 7 6 5 4 3 2 1)))

(define csv (read-file "tmp/data.csv"))
; (print csv)
(define csv_list (parse-csv csv))
; (print csv_list)
(for x csv_list 
     (print x))

(define web_page (read-url "https://query1.finance.yahoo.com/v7/finance/download/FDX?period1=1581272585&period2=1612894985&interval=1d&events=history&includeAdjustedClose=true"))
(print web_page)
(define fdx_list (parse-csv (index web_page 1)))
(print fdx_list)

(print "Debug ends")