#!/usr/bin/pl
(def repl (fn () (
  (prn "pebblisp::> ")
  (def input (inp))
  (if (= input "q") () (
      ;(switch input (
      ;  ("clear" (fn () (sys "clear")))
      ;))

      (if (= input "") () (
        (if (= input "clear") (sys "clear") (
        (def ret (eval input))
        (if (iserr ret) (prn "X  =>  ") (prn "Ok =>  "))
        (prnl ret)
        (prn "")))))
      (repl)
  ))
)))

(repl)