getCounter :: (Monad m) => Counter -> CyoaT m Int
getCounter counter = do
  lookup <- gets $ Map.lookup counter . player_counters . player_state
  return $ 0 `fromMaybe` lookup
getCounter :: (Monad m) => Counter -> CyoaT m Int
getCounter counter = do
  lookup <- gets $ Map.lookup counter . player_counters . player_state
  return $ 0 `fromMaybe` lookup
getCounter counter = do
  lookup <- gets $ Map.lookup counter . player_counters . player_state
  return $ 0 `fromMaybe` lookup