# ----------------------------------------------------------------------
# convert_evmt_20e1_to_evmt_25e1.sh

  lin = gensub(/c[~]/, "{\\&c~}", "g", lin);
  lin = gensub(/e[~]e/, "{\\&e~e}", "g", lin);
  lin = gensub(/e[~]o/, "{\\&e~o}", "g", lin);
  lin = gensub(/i[~]a/, "{\\&i~a}", "g", lin);
  lin = gensub(/e[~]!y/, "{\\&e[~]y}", "g", lin);
  lin = gensub(/h[~]o/, "{\\&h[~]o}", "g", lin);
  lin = gensub(/q[~]o/, "{\\&q[~]o}", "g", lin);
  lin = gensub(/o[~][.]/, "{\\&o~}.", "g", lin);
  lin = gensub(/a[~][=]/, "{\\&a~}=", "g", lin);
  lin = gensub(/e[~]![.]/, "{\\&e~}.", "g", lin);
  lin = gensub(/da[{][?][}][~][-]/, "{\\&da~}-", "g", lin);

  lin = gensub(/[(]([^()]*)[)]/, "*{\\&\\1}", "g", lin);

  lin = gensub(/lucz[*]{[&]9}([^{}]*)[}]/, "lu*\\&299\\1}{where \\&299 is \"cz\" with macron}", "g", lin);