444444444
433333334
432222234
432111234
432101234
432111234
432222234
433333334
444444444

##</code><code>##

666666667
555555567
444444567
333334567
222234567
111234567
101234567
111234567
222234567

##</code><code>##

#!/usr/bin/perl
for($y=9;$y>0;$y--){print abs$ARGV[1]-$y>abs$ARGV[0]-$_?abs$ARGV[1]-$y:abs($ARGV[0]-$_)for(1..9);print"\n"}