[Wolfram Mathematica] манипуляции с переменными и значениями

[Mysterious Light]

Добрый вечер!

Представляю вашему вниманию задачу, которая сломала мне мозг, но решить которую очень бы хотелося.

Имеется переменная Params типа {_Symbol..}, например, Params = {a, b, c}. Далее происходит присваивание буквам значения, например, a = 2; b = 4; c = 1, причём эти присваивания не централизованы, разбросаны по коду и, быть может, их и вовсе нет, но используется Block.
Задача написать процедуру, которая создаёт файл с содержимым вида <имя переменной> = <значение>, например,

a = 2;
b = 4;
c = 1;

Как это сделать?

Основной вопрос: как выудить буквы из списка, когда каждой букве приписано значение? Я думал использовать Block, например, Block[Params, ...], но не получилось.

Практическая польза этой процедуры очевидна.

[Vince Diesel]

А просто сначала создать копию списка в символьном виде Params$=ToString/@Params, а в конце менять, что надо? Типа так:

Params = {a, b, c};
Params$ = (ToString@# <> "=" & /@ Params);
a = 3; b = 4; c = 5;
StringJoin @@@ Transpose@{Params$, ToString /@ Params}

Результатом будет список строк

Цитата:

List["a=3","b=4","c=5"]

[Mysterious Light]

Красиво! Я как-то забыл, что в WM есть соответствие строка-переменная.

Тогда посоветуйте ещё по самой задаче, как лучше организовать сохранение параметров, чтобы ими было легче манипулировать. Может, есть какая-то хорошая практика.
Рабочий вариант такой:

SetParameters[params___Symbol] := Params = ToString /@ {params};

WriteParams[filename_String] := 
  Module[{fl = OpenWrite[filename]}, 
   WriteString[fl, StringJoin[(# <> "=" <> ToString[Symbol[#]] <> ";\n") & /@ Params]];
   Close[fl];
   ];

SetParameters[a, b, c]

a = 1; b = 2; c = 3;
Block[{c = 4}, WriteParams["~/params.txt"]]

<< ~/params.txt

[Vince Diesel]

Для сохранения значений переменных есть командa DumpSave.