$_=<>;print,-$_||last,s/./$&-1/e,s/^00/9/while/./