sum and product inside a program

[roadrunner]

I could never get sum() to work right inside a program unless I made it a CAS program. This seems to do what you need:

#cas
POLY(n,z):=
BEGIN
LOCAL k;
sum(z^k/k^n,k,1,3,1);
END;
#end

-road