002-13.mws

> factor((x^2-a)^2-a-x);

(-a-x+x^2)*(-a+x^2+1+x)

> factor(((x^2-a)^2-a)^2-a-x);

(-a-x+x^2)*(x^6+x^5-3*x^4*a+x^4-2*x^3*a+x^3-3*x^2*a...
(-a-x+x^2)*(x^6+x^5-3*x^4*a+x^4-2*x^3*a+x^3-3*x^2*a...

> factor((((x^2-a)^2-a)^2-a)^2-a-x);

(-a-x+x^2)*(-a+x^2+1+x)*(1-x^2*a+3*a^4-3*a^3+2*a^2+...
(-a-x+x^2)*(-a+x^2+1+x)*(1-x^2*a+3*a^4-3*a^3+2*a^2+...
(-a-x+x^2)*(-a+x^2+1+x)*(1-x^2*a+3*a^4-3*a^3+2*a^2+...
(-a-x+x^2)*(-a+x^2+1+x)*(1-x^2*a+3*a^4-3*a^3+2*a^2+...

>