for (i = 0; i < DA_LEN(f); i++) {
x = gfreduce_exp(&r, x, MP_TWO, DA(f)[i].r);
#ifdef DEBUG
for (i = 0; i < DA_LEN(f); i++) {
x = gfreduce_exp(&r, x, MP_TWO, DA(f)[i].r);
#ifdef DEBUG
n = 0;
while (!dofip(f, m, &p, n, m))
n += 2;
n = 0;
while (!dofip(f, m, &p, n, m))
n += 2;