Mathematica Function Definition