P66, P104: In Mathematica solution, changed With[] to Block[].