rootsur.lib
LIB "rootsur.lib"; ring r = 0,x,dp; poly p = (x+2)*(x-1)*(x-5); boundposDes(p); ==> 2 p = p*(x2+1); boundposDes(p); ==> 4