rootsmr.lib
LIB "rootsmr.lib"; ring r = 0,x,dp; list l = list(1,2,3,4,5); poly p = univarpoly(l); p; ==> x4+2x3+3x2+4x+5