Αποστολή με SMS: Discrete dynamical systems and difference equations with mathematica