parseNumber :: Parser LispVal
parseNumber = liftM (Number . read) $ many1 digit
parseNumber :: Parser LispVal
parseNumber = liftM (Number . read) $ many1 digit
parseNumber = liftM (Number . read) $ many1 digit