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