(print "Debug starts")

(define json_list (read-json "{\"k1\":\"v1\", \"k2\":42, \"k3\":[\"a\",123,true,false,null]}"))
(print json_list)
(for x json_list
     (print x))


;; (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")