Mathematica explicit intersections worked out
merge