+// Series exponentiation
+static unsigned exam_series4()
+{
+ unsigned result = 0;
+ ex e, d;
+
+ e = pow((2*cos(x)).series(x==0, 5), 2).series(x==0, 5);
+ d = 4 - 4*pow(x, 2) + 4*pow(x, 4)/3 + Order(pow(x, 5));
+ result += check_series(e, 0, d);
+
+ e = pow(tgamma(x), 2).series(x==0, 3);
+ d = pow(x,-2) - 2*Euler/x + (pow(Pi,2)/6+2*pow(Euler,2)) + Order(x);
+ result += check_series(e, 0, d);
+
+ return result;
+}
+