setideal(s33,scroll{3,3})$
setideal(t,kermap({x0,x2,x3,x4,x5,x7},s33))$
setideal(nc,int_ncone{t,t})$
setring(first getring(), degreeorder first getring(), revlex)$
degs(nc,{6,6});
%multdeg(nc,blockorder(first getring(),{6,6}));
on time;
bye;