Illustrating Finance Policy with Mathematica