(defun test ()
  (print "OP HUI"))

(defun run-shell ()
  (loop
     for cmd = (read-line)
     until (string= cmd "quit")
     do (funcall (symbol-function (intern (string-upcase cmd))))
       (terpri)))