How To Raise To A Power In Mathematica