parseNumber' :: Parser LispVal
parseNumber' = do
                digits <- many1 digit
                return $ (Number . read) digits
parseNumber' :: Parser LispVal
parseNumber' = do
                digits <- many1 digit
                return $ (Number . read) digits
parseNumber' = do
                digits <- many1 digit
                return $ (Number . read) digits