Changing (* foo foo) for (expt foo 2)