P401: Added Mathematica solution.