@_=$_=<>.$/;@_=($_,@_)while s/[1-9]/$&-1/e;print@_