Classical Mechanics with Mathematica®