i1 : R := QQ[x,y,z];
i2 : f := toList factor((x^2 - y^2)*(x^2 - z^2)*(y^2 - z^2)*z) / first;
i3 : A := arrangement f o3 = {z, y - z, y + z, x - z, x + z, x - y, x + y} o3 : Hyperplane Arrangement
i4 : lct A 3 o4 = - 7 o4 : QQ