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