<>;print${s/./($t=$&-48+ord$')%10+($t>9)/ge,s/.$// while/../;_}for<>