From: Graham Denham <gdenham@uwo.ca>

needsPackage "HyperplaneArrangements"
S = QQ[a,b,c]
ten3 = transpose matrix {{0,0,1},{0,1,1},{1,1,1},{1,0,1},
     {0,a,1},{b,b,1},{c,0,1},{b-a*b,b-a,b-a},{b-c,b-b*c,b-c},
     {a*c-c,a-a*c,a-c}}
f = map(QQ,S,{-78/5,-6,13/3})
A = arrangement f ten3
J = ideal jacobian ideal product tolist A
radical J -- seg fault
