Invia SMS: Economic and Financial Modeling with Mathematica