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