//
// test script for lead command
//
pagelength = 10000;
ring r1 = 32003,(x,y,z),(c,ds);
r1;
"-------------------------------";
poly s1=x2y3+45x6y3+68x4z5+80y6x8;
poly s2=6x5+3y6+8z6;
poly s3=12xyz3+2y3z6;
ideal i1=s1,s2,s3;
vector v=[x8,s1];
module m=v,s1*(v);
lead(s1);
"-------------------------------";
lead(v);
"---------------------------------";
lead(i1);
"--------------------------------";
lead(m);
"--------------------------------";
lead(s2);
"---------------------------------";
lead(s3);
"---------------------------------";
listvar(all);
kill r1;
$;