#!/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"}