Solved 323 (pure Mathematica for now)