$_.=<>;print"$_
",s/[^0]/$&-1/e&&!do$0