binSuffix :: Parser Integer
binSuffix = do
    str <- many1 $ oneOf "01"
    oneOf "Bb"
    return $ parseBin str
binSuffix :: Parser Integer
binSuffix = do
    str <- many1 $ oneOf "01"
    oneOf "Bb"
    return $ parseBin str
binSuffix = do
    str <- many1 $ oneOf "01"
    oneOf "Bb"
    return $ parseBin str