(when (char-ready?)
  (let ((sexp (read)))
    (if (eof-object? sexp)
        (exit 0)
        (print (eval sexp)))))