# Mathematica, 89 bytes

    FromCharacterCode[(81-(2ToCharacterCode@#-81//.x_/;Min@Accumulate@x<0:>RotateLeft@x))/2]&