;; read

(def! READ (fn* [strng]

(read-string strng)))

;; eval

(def! EVAL (fn* [ast env]

ast))

;; print

(def! PRINT (fn* [exp] (pr-str exp)))

;; repl

(def! rep (fn* [strng]

(PRINT (EVAL (READ strng) {}))))

;; repl loop

(def! repl-loop (fn* []

(let* [line (readline "mal-user> ")]

(if line

(do

(if (not (= "" line))

(try*

(println (rep line))

(catch* exc

(println "Uncaught exception:" exc))))

(repl-loop))))))

(def! -main (fn* [& args]

(repl-loop)))

(-main)