-- -*- M2-comint -*- hash: 6315244466045678500

i1 : R = QQ[a,b,c,d];

i2 : M = ideal(a^3*b^2*c, a^3*b^2*d, a^2*c*d, a*b*c^2*d, b^2*c^2*d);

o2 : Ideal of R

i3 : LM = lcmLattice M;

i4 : D1 = orderComplex(openInterval(LM, 1_R, a^2*b^2*c^2*d));

i5 : prune HH(D1)

o5 = 0
      
     0

o5 : Complex

i6 : D2 = orderComplex(openInterval(LM, 1_R, a^3*b^2*c*d));

i7 : prune HH(D2)

       2
o7 = QQ
      
     0

o7 : Complex

i8 : 
