$_=('x'x9 .$/)x9;
substr($_,10*(9-$ARGV[1])+$ARGV[0]-1,1)=0;
for$a(0..8){for$b(0,8,9,10){s/(?<=$a.{$b})x|x(?=.{$b}$a)/$a+1/esg}}
print;