How To Create A Function In Mathematica