-- -*- M2-comint -*- hash: 14693949993785416032

i1 : R = ZZ/32003[a..d];

i2 : I = intersect(ideal(a*b+a^2,b^2), ideal(a^2,b^2,c^2), ideal(b^3,c^3,d^3))

             3   2 3   2 3   2 3        3   2   3   3 3   2 2 3        2 3
o2 = ideal (b , b d , b c , a c  + a*b*c , a b*d , a d , a c d  + a*b*c d )

o2 : Ideal of R

i3 : removeLowestDimension I

             2   2
o3 = ideal (b , a  + a*b)

o3 : Ideal of R

i4 : 
