$a=join"",0..9;$a=~s/(.*)$_/$_$1/,print$+[1]for<>=~/./g