Nest[Power[#, #]&, x^2 - 3 x + 4, 4]