readCount :: CCount -> IO Integer
readCount countC = toInteger <$> getCountC countC
readCount :: CCount -> IO Integer
readCount countC = toInteger <$> getCountC countC
readCount countC = toInteger <$> getCountC countC