test added

Readme.md

@@ -58,3 +58,7 @@ https://baptiste-wicht.com/posts/2012/12/cpp-benchmark-vector-list-deque.html
 ```
 
 https://stackoverflow.com/questions/25896916/parse-http-headers-in-c
+
+
+#### read stdout and stderr from popen
+https://stackoverflow.com/questions/478898/how-do-i-execute-a-command-and-get-the-output-of-the-command-within-c-using-po

debug.lisp

@@ -1,16 +1,9 @@
 (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 (make-csv '(("r1c1" "r1c2") ("r2c1" "r2c2"))))
-
-
 (print "Debug ends")

tests/test.lisp

@@ -8,7 +8,17 @@
       (* n (fact (- n 1)))
     ))
 
-(print (fact 1000))
+(print (fact 5))
+
+; for this stack must be 16MB, otherwise 1000 is ok
+(defun scitej (n)
+   (if (<= n 1)
+      1
+      (+ n (scitej
+       (- n 1)))
+    ))
+
+(print (scitej 4000))