Create Function In Mathematica