Mathematica tidyup