clearDice :: (Monad m) => CyoaT m ()
clearDice = modify $ \gs -> gs{ page_state = Map.empty }
clearDice :: (Monad m) => CyoaT m ()
clearDice = modify $ \gs -> gs{ page_state = Map.empty }
clearDice = modify $ \gs -> gs{ page_state = Map.empty }