expl
extern long double expl(long double x);
long double exp_val = expl (__real__ x);
t = expl(x);
t = expl(0.5*x);
return expl(-z*z - 0.5625) * expl((z - x) * (z + x) + R / S) / x;
t = expl(0.5*absx);
y = expl(x);