(defun game-repl ()
  (let ((cmd (game-read)))
       (unless (eq (car cmd) 'quit)
               (game-print (game-eval cmd))
               (game-repl))
       (princ cmd)))