Powers function
I feel like I'm cheating here but then again there is always time to go back when I don't suck at lisp