dmodloc.lib
LIB "dmodloc.lib"; ring r = 0,x,dp; poly f = x*(x+1)*(x-2)*(x-5/2)*(x+5/2); list L = bFactor(f); maxIntRoot(L); ==> 2