number :: Parser Integer
number = 
    do
        ds <- some digit
        return (read ds :: Integer)
number :: Parser Integer
number = 
    do
        ds <- some digit
        return (read ds :: Integer)
number = 
    do
        ds <- some digit
        return (read ds :: Integer)