-- * Shared counter operations

-- Creating a counter that starts from 0
newCounter :: IO (TVar Counter)
newCounter = newTVarIO 0
newCounter :: IO (TVar Counter)
newCounter = newTVarIO 0
newCounter = newTVarIO 0