Let's say I have the following list:

```
{({-Index[y, 2]} [CirclePlus]1) / Index[y, 1], ({-Subscript[y,
1], -Scriptive[y, 3]} [CirclePlus]1) / Index[y, 2], ({-Subscript[y,
2]} [CirclePlus]1) / Index[y, 3], ({Index[y, 2]} [CirclePlus]1) / Index[y, 1], (-Subscript[y, 1][CirclePlus]Index[y, 3])/Index[y, 2], Index[y, 3][CirclePlus](Index[y, 2] + Index[y, 3]))/Index[y, 1]}
```

Now, whenever something of the form `{-ABC,...}`

appears, I want to multiply the elements of this list, from left to right, so that I receive `-ABC...`

. As you can see, if there is a sign less than one of the elements that I multiply, I want this sign to remain in the output, that is to say that we ignore the signs during the multiplication. The direct sum symbol is just a substitute for the moment.

What follows does the job:

```
Times @@ HoldForm / @ {-Script[y, 1],-Index[y, 3],Index[y, 4]}
```

So now, I would like to apply that to the big list at the beginning of the question, but I do not know how to do that. The only thing that would change in this list would be in the second element of this list, that is to say the first part of the numerator, the rest of the list would remain the same. Anyone could help?