$_=<>;$%=9;0until s/([1-$%])(.*)$%/$%$2$1/|!--$%;print