mathematica script example