{
 :name "bet"

 :display (fn [p]
            (print (string.format "You have $%d." p.cash))
            (print (string.format "Your current bet is $%d." p.bet))
            (print "Enter a new bet.\n")
            (io.write "> ")
)

 :key-pressed (fn key-pressed [p amt set-mode]
                (let [valid? (<= (tonumber amt) p.cash)]
                  (when valid?
                    (set p.bet amt)
                    (set-mode :mode.menu)
                    )
                  )
                )
 }