rootsur.lib
LIB "rootsur.lib"; ring r = 0,x,dp; list l = 1,2,3; varsigns(l); ==> 0 l = 1,-1,2,-2,3,-3; varsigns(l); ==> 5