Mathematica by Example