delete("exampl/cycl6.out")$
output("exampl/cycl6.out")$
select int[x1,x2,x3,x4,x5,x6;'revlex]$
h := ideal(x1+x2+x3+x4+x5+x6,
x1*x2+x2*x3+x3*x4+x4*x5+x5*x6+x6*x1,
x1*x2*x3+x2*x3*x4+x3*x4*x5+x4*x5*x6+x5*x6*x1+x6*x1*x2,
x1*x2*x3*x4+x2*x3*x4*x5+x3*x4*x5*x6+x4*x5*x6*x1+x5*x6*x1*x2+x6*x1*x2*x3,
x1*x2*x3*x4*x5+x2*x3*x4*x5*x6+x3*x4*x5*x6*x1+x4*x5*x6*x1*x2+x5*x6*x1*x2*x3+x6*x1*x2*x3*x4,
x1*x2*x3*x4*x5*x6-1)$
on showtime$
statgb := 1$
k:=standard(h)$
