addPlus1Plus1 :: Monad m => CardID -> StateT GameState m ()
addPlus1Plus1 cID = _card cID.counters <>= [(Plus1Plus1, 1)]
addPlus1Plus1 :: Monad m => CardID -> StateT GameState m ()
addPlus1Plus1 cID = _card cID.counters <>= [(Plus1Plus1, 1)]
addPlus1Plus1 cID = _card cID.counters <>= [(Plus1Plus1, 1)]