Forecasting Currency Exchange Rate using Mathematica