}

           else

        {

           // поиск слов с наибольшим u_lu[q], таких что d[q]!=0

           q = u - 1;

           while ((d[q] == -1) && (q>0)) q--;

           // найден первый ненулевой d[q]

           if (q > 0)

           {

              j=q ;

              do

           {

              j-- ;

              if ((d[j]!=-1) && (u_lu[q]<u_lu[j]))

              q = j ;

           } while (j>0);

        };

        // как только мы найдем q, такой что d[u]!=0 и u_lu[q] есть максимум

        // запишем степень нового elp полинома

        if (l[u] > l[q]+u-q) l[u+1] = l[u]; else l[u+1] = l[q]+u-q;

        // формируем новый elp(x)

        for (i = 0; i < n - k; i++) elp[u+1][i] = 0;

        for (i = 0; i <= l[q]; i++)

           if (elp[q][i]!=-1)

              elp[u+1][i+u-q]=alpha_to [(d[u]+n-d[q]+elp[q][i])%n];

        for (i=0; i<=l[u]; i++)

        {

           elp[u+1][i] ^= elp[u][i];

           // преобразуем старый elp в индексную форму