A Mathematica Package