added one more mathematica script