pebblisp/src/examples/repl.pbl

#!/usr/bin/pl
(def repl (fn () (
  (prn "pebblisp::> ")
  (def input (inp))
  (if (= input "q") () (
      (prnl (eval input))
      (repl)))
)))

(repl)