$x=shift;$y=10-shift;for$a(1..9){for(1..9){$c=abs$y-$a;$d=abs$x-$_;print$c>$d?$c:$d}print"\n"}