$_=<>;$c=9;0while s/$c(.*)(?!$c)(.)(.*)\2/$1$3/&&($%+="$c$2$2")||--$c;print$%