Made a bit of progress on mathematica