#!perl -nl
for$x(1..9){s/./(""^$&?$n--:++$n)-$x?$":$&/ger=~/.*\)/&&print$&}