ge_p2_dbl
ge_p2_dbl(&t, r);
ge_p2_dbl(&t, r);
ge_p2_dbl(&t, r);
ge_p2_dbl(&t, r);
ge_p2_dbl(r, &q);
ge_p2_dbl(&r, &s);
ge_p2_dbl(&r, &s);
ge_p2_dbl(&r, &s);
ge_p2_dbl(&t, &Ai_p2[i / 2]);
ge_p2_dbl(r, &q);
ge_p2_dbl(&r, &s);
ge_p2_dbl(&r, &s);
ge_p2_dbl(&r, &s);
ge_p2_dbl(&t, r);