Stuff

For[i = 0, i < ToExpression[valores[[2]]], i++,
    		AppendTo[temp, "
          P: " <> valores[[offset + 1]]]; (* Agregar la probabilidad *)
    		limDer = offset + ToExpression[valores[[offset]]] + 2;
    		For[j = offset + 2, j < limDer, j++,
      			AppendTo[temp, valores[[j]]];
      		];
    
    		AppendTo[
        repr, temp]; (* Agregar el elemento actual a la representacion *)
    		temp = {};
    		offset = j;
    	];