(import brev mdg)

(define true #t)
(define false #f)
(define game-running true)

(define (menu msg)
	(print msg))

(define start-game "start game")
(define game-over "game over")

(define (listner game-running)
	(display " > ")
	(define user-input (read))
	(if (string=? user-input "quit")
		(set! game-running false)
		(print user-input))
	game-running)

(let loop ()
	(if (eqv? game-running true)
		(listner game-running))
	(loop))