binPrefix :: Parser Integer
binPrefix = do
    char '%'
    str <- many1 $ oneOf "01"
    return $ parseBin str
binPrefix :: Parser Integer
binPrefix = do
    char '%'
    str <- many1 $ oneOf "01"
    return $ parseBin str
binPrefix = do
    char '%'
    str <- many1 $ oneOf "01"
    return $ parseBin str