)set stream calc 4
eps := "eps"::Symbol;
sigma := "sigma"::Symbol;
Z ==> Integer
E ==> Expression Z
T ==> UnivariateTaylorSeries(E,eps,0)
e := eps::T
s := sigma::E
t := series([sin(s)^n/factorial(n) for n in 0..])$T
integrate(t,sigma)