Plot[{x, Sqrt[8 - Sqrt[8 - Sqrt[8 + x]]]}, {x, 2, 3}]