New Mathematica program