isValidCode :: CodeString -> Bool
isValidCode (CodeString _ count _) = count == 0
isValidCode :: CodeString -> Bool
isValidCode (CodeString _ count _) = count == 0
isValidCode (CodeString _ count _) = count == 0