Add Mathematica algorithm prototype