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