(dotimes i 4 (print i) )

(def acc 0)
(print (dotimes i 4 (do (set! acc (+ acc i)) (print acc))) )

(defmacro until (cnd body)
	(list 'while '(not (eval cnd)) 
		body
    ))  



(def stop nil)


(until stop
(do
    (def line (input2 "=> "))
	(if (= line "!q")
		(set! stop #t)
		(print line))
))