gmssing.lib
LIB "gmssing.lib"; ring R=0,(x,y),ds; list spp=list(ideal(-1/2,-3/10,-1/10,0,1/10,3/10,1/2),intvec(2,1,1,1,1,1,0), intvec(1,2,2,1,2,2,1)); sppprint(spp); ==> ((-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)