(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))
))