Nest[Power[x, #]&, 1, 8]