Select Code to Download

$_=('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;

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

666666789
555556789
...
101234567
111234567
222234567