decimal :: Parser Integer
decimal = do
    str <- many1 digit
    return $ read str
decimal :: Parser Integer
decimal = do
    str <- many1 digit
    return $ read str
decimal = do
    str <- many1 digit
    return $ read str