#!perl -pl
s/./=$&$&/g;0while s/(.)\1((..\1)*+..)(.)/$1$4$2$1/||($_=join"",sort~$_=~/.../g)!~s/=.//g