repl

;;; REPL

(define (repl)
  (let ((r (parser))                                           ; Parser クラスのインスタンスを束縛
        (e (game-master))                                      ; Game-Master クラスのインスタンスを束縛
        (p (message)))                                         ; Message クラスのインスタンスを束縛
    (let loop ()
      (let-values (((phase0 info0) (input r)))
        (let-values (((phase1 info1) (interp e phase0 info0)))
          (print p phase1 info1)))
      (loop))))

(repl)                                                         ; ゲーム起動