Nest[Subsuperscript[#,#,#]&,Slider2D[Dynamic[x],ImageSize->25],4]

Nest[Subsuperscript[#,#,#]&,DynamicModule[{x},Slider2D[Dynamic[x],ImageSize->25]],4]