(print "Debug starts")

; nefunguje - api.nasdaq.com
;(define nasdaq_headers (quote (("Accept" "application/json, text/plain, */*") ("Connection" "keep-alive") ("Origin" "https://www.nasdaq.com/") ("User-Agent" "Mozilla/5.0 (Windows NT 10.0)"))))
;(define json_list2 (parse-json (read-url "https://api.nasdaq.com/api/calendar/dividends/?date=2021-02-01" nasdaq_headers)))
; (for x json_list2
;      (print x))





(print (make-csv '(("r1c1" "r1c2") ("r2c1" "r2c2"))))


(print "Debug ends")