(defun find-with-val-sublist (lst name)
  (do 
	; (print "list:" lst " name:" name)	
	(define found_val nil)
	(define i 0)

	(while (and (>= i 0) (< i (len lst)))
		(define e (index lst i))
		; (print "testing element:" e " first e:" (first e))
		(if  (= (type (first e)) "list")
		  (do 
		  	(set! found_val (find-with-val-sublist (first e) name))
			(if (!= found_val nil) (set! i -1))
		  )
		  ; else
		  (do
			;(print "compare" (first e) " with " name)
			(if (= name (first e)) 
				(do 
				  ; (print "found" name)
				  (set! found_val (second e)) (set! i -1)
				)
				; else
				(if (= (type (second e)) "list")
		  		    (do (set! found_val (find-with-val-sublist (second e) name)) 
			  		(if (!= found_val nil) 
					  (set! i -1)
					)
				    )
				    (define i (inc i))
				)
		  	)
		  )
		)
	)
	found_val
  ))
    



(define str "{\"date_from\":\"2021-10-05\",\"date_to\":\"2021-10-05\",\"earnings\":{\"2021-10-05\":{\"stocks\":[{\"importance\":5,\"symbol\":\"PEP\",\"date\":\"2021-10-05\",\"time\":\"06:00:00\",\"title\":\"PepsiCo\"},{\"importance\":0,\"symbol\":\"SAR\",\"date\":\"2021-10-05\",\"time\":\"16:00:00\",\"title\":\"Saratoga Investment\"}],\"day\":\"Today\",\"month\":\"October\",\"year\":\"2021\",\"date_number\":\"05\",\"selected_copy\":\"PEP and SAR reporting Today\",\"deselected_copy\":\"PEP and SAR reporting Today\"}}}")
(define parsed_json (parse-json str))
;(print parsed_json "\n")

(define stocks (find-with-val-sublist parsed_json "stocks"))
(print stocks)
(for s stocks
     (print s)
     (print  (find-with-val-sublist parsed_json "date"))
)



;; (define a 25)
;; (cond 
;; 	((> a 30) (print "a > 30"))
;; 	((> a 20) (print "a > 20"))
;; 	(1 (print "a je" a)))

;; (define csv_date (str-to-date "01/01/2021" "%m/%d/%Y"))
;; (date-to-str 3141583200 "%m/%d/%Y")


;; (define time (get-universal-time))
;; (str-to-date (date-to-str time "%Y-%m-%d %H:%M:%S") "%Y-%m-%d %H:%M:%S")


;; (define create_tbl_sql "create table prices (datetime integer, symbol varchar(8), prev_close float, open float, price float, change float, change_prct varchar(16))")
;; (define insert_sql "insert into prices (datetime, symbol, prev_close, open, price, change, change_prct) values (1626979443, 'MPC', 54.08, 53.82, 53.63, -0.832101, '-0.83 %')")
;; (define select_sql "select to_string(datetime, '%d.%m.%Y %H:%M:%S'), symbol, prev_close, open, price, change, change_prct from prices")


;; (print (usql create_tbl_sql))
;; (print (usql insert_sql))
;; (print (usql select_sql))

;; (print (usql "select to_string(datetime, '%d.%m.%Y %H:%M:%S'), symbol, prev_close, open, price, change, change_prct from prices"))

;; (define var "promena var")
;; (define var2 "promena var2")
;; (print var)
;; (print var2)

;;  (print (+ "select min(adjClose), max(adjClose) from history_prices where symbol = '" var "'"))

;; (print (usql "create table data (ticker varchar(8), price float null)"))
;; (usql "load data from '/Users/vaclavt/Library/Mobile Documents/com~apple~CloudDocs/Development/usql/data.csv')")
;; (print (usql "select ticker, price from data"))

;; (read-url "https://api.nasdaq.com/api/calendar/dividends/")


;; (define fc 5)
;; (define sc 5)

;; (define first_tid (thread-create (while (> fc 0) (do (thread-under-lock "ilock" (do (set! fc (dec fc))(print 1))) (thread-sleep 500)))))
;; (define second_tid (thread-create (while (> sc 0) (do (thread-under-lock "ilock" (do (set! sc (dec sc))(print 2))) (thread-sleep 750)))))

;; (print "first thread id:" first_tid)
;; (print "second thread id:" second_tid)
;; (threads-join)
;; (print "ok")

;; (try 
;;     (ls-dir "nonexisting/dir")
;;     (print "dir not exists"))

;; (try 
;;     (throw "my-exception")
;;     (print "exception caught:" ml-exception))

;; (/ 1 0)