OrlikTeraoIdeal(A: LIST): IDEAL
/**/ use QQ[x,y]; /**/ A := [x, y, x-y]; /**/ OrlikTeraoIdeal(A); ideal(y[1]*y[2] +y[1]*y[3] -y[2]*y[3])