reducl
static long double reducl(long double);
ya = reducl(y);
Fa = reducl(F);
Ga = reducl(G);
Ha = reducl(H);