perl *
print"$_
"x(s/./$&-$`%10+1/ge,/^.2+0+$/)for 1..9e4