mathematica exercise