getDice :: (Monad m) => Die -> CyoaT m Int
getDice d = gets (fromJust . Map.lookup d . page_state)
getDice :: (Monad m) => Die -> CyoaT m Int
getDice d = gets (fromJust . Map.lookup d . page_state)
getDice d = gets (fromJust . Map.lookup d . page_state)