teachstd.lib
LIB "teachstd.lib"; ring r=0,(x,y,z),ls; ecart((y+z+x+xyz)**2); ==> 4 ring s=0,(x,y,z),dp; ecart((y+z+x+xyz)**2); ==> 0