gmssing.lib
LIB "gmssing.lib"; ring R=0,(x,y),ds; list sp=list(ideal(-1/2,-3/10,-3/10,-1/10,-1/10,0,1/10,1/10,3/10,3/10,1/2), intvec(2,1,1,1,1,1,1,1,1,1,0)); sppprint(sppnf(sp)); ==> ((-1/2,2),1),((-3/10,1),2),((-1/10,1),2),((0,1),1),((1/10,1),2),((3/10,1)\ ,2),((1/2,0),1)