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