PT    :=0;;
mxp   := 0;;
eq   := 0;;
divpol := 0;;
mx   := 0;;
xn    := 0;;
fdeg  := 0;;
YP    := 0;;
D    := 0;;
Y    := 0;;
albas  := 0;;
b   := 0;;
bas  := 0;;
bpow := 0;;
c    := 0;;
calc_c  := 0;;
cl   := [];;
i := 0;;
j := 0;; 
cl[1] := [];;
cl[1][1]  := 0;;
cnv  := 0;;
div  := 0;;
ffdata := 0;;
ffe  := 0;;
g    := 0;;
ind := 0;;
lbas := 0;;
ldim := 0;;
make_c   := 0;;
n   := 0;;
nc   := 0;;
num_c  := 0;;
nxp  := 0;;
p    := 0;;
p0   := 0;;
p0ind:= 0;;
pn  := 0;;
pt  := 0;;
s   := 0;;
tbas  := 0;;
te   := 0;;
txp  := 0;;
v    := 0;;
vi  := 0;;
w   := 0;;
wn  := 0;;
xind := 0;;
xp   := 0;;
y4   := 0;;
tp   := 0;;
yp   := 0;;
AlffInit(FF(2));
AlffOrders(y);