Untitled

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;
];