(print "Debug starts")

; add support for ()

(print "(member '(1 2 3) 1:" (member '(1 2 3) 1))
(print "(member '(1 2 3) 3:" (member '(1 2 3) 3))
(print "(member '(1 2 3) 30:" (member '(1 2 3) 30))


(print "result of (and (> 2 1) (> 2 1)): " (and (> 2 1) (> 2 1)))
(print "result of (or (> 2 1) (> 2 1)):  " (or (> 2 1) (> 2 1)))
(print "result of (and (> 2 1) (> 1 2)): " (and (> 2 1) (> 1 2)))
(print "result of (or (> 2 1) (> 1 2)):  " (or (> 2 1) (> 1 2)))
(print "result of (and (> 1 1) (> 1 2)): " (and (> 1 1) (> 1 2)))
(print "result of (or (> 1 1) (> 2 1)):  " (or (> 1 1) (> 1 2)))

;; (print (member '(1 2 3) 1))
;; (print (member '(1 2 3) 10))



(print (string-rpad "rpad0123456789" 10 "x"))
(print (string-rpad "rpad " 10 "x"))

(print (string-lpad "lpad" 10 "x"))

(print nil)
(print ())

(print (make-list 5))

(print "Debug ends")