Hi Hans,
When I try to use the above tip, I encounter the following very strange problem:
In[174]:= ClearAll[x];
Array[Symbol["x" <> ToString@FromDigits@{##}] &, {3}]
Out[175]= {<|{{-1, -1, -1},
2} -> {{-1, 0, 0}, {0, -1, 0}, {0, 0, -1}}, {{-1, -1, 1},
2} -> {{2, -1, -1}, {3/2, -(3/2), -(1/2)}, {3/
2, -(1/2), -(3/2)}}, {{-1, -I, I},
4} -> {{3/2, -(1/2), -(3/2)}, {3/
2, -(3/2), -(1/2)}, {2, -1, -1}}, {{-1, 1, 1},
2} -> {{2, -1, -1}, {3/2, -(1/2), -(3/2)}, {3/
2, -(3/2), -(1/2)}}, {{-1, (-1)^(1/3), -(-1)^(2/3)},
6} -> {{1, 1, -2}, {3/2, 1/2, -(3/2)}, {1/2, 3/2, -(3/2)}}, {{-I,
I, 1}, 4} -> {{3/2, 1/2, -(3/2)}, {1, 1, -2}, {1/2, 3/
2, -(3/2)}}, {{1, 1, 1},
1} -> {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}, {{1, -(-1)^(1/3), (-1)^(
2/3)}, 3} -> {{3/2, -(1/2), -(3/2)}, {2, -1, -1}, {3/
2, -(3/2), -(1/2)}}|>, <|{{-1, -1, -1},
2} -> {{-1, 0, 0}, {0, -1, 0}, {0, 0, -1}}, {{-1, -1, 1},
2} -> {{1, 0, 0}, {0, -1, 0}, {0, 0, -1}}, {{-1, -I, I},
4} -> {{0, 1, 0}, {-1, 0, 0}, {0, 0, -1}}, {{-1, 1, 1},
2} -> {{1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, {{-1, (-1)^(
1/3), -(-1)^(2/3)},
6} -> {{0, 1, 0}, {0, 0, 1}, {-1, 0, 0}}, {{-I, I, 1},
4} -> {{1, 0, 0}, {0, 0, 1}, {0, -1, 0}}, {{1, 1, 1},
1} -> {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}, {{1, -(-1)^(1/3), (-1)^(
2/3)}, 3} -> {{0, 1, 0}, {0, 0, 1}, {1, 0, 0}}|>, x3}
As you can see, I've cleared the variable x, however, it still interferes with subsequent assignment operations.