Mathematica code slide done