Solved, runs to slow without help from Mathematica