Creates A Mathematica Progress