<>=~/ /;$l=$r=join$"x($`*2-3),($')x$`;print($l|$"x$_.$r.$/),$l=~s/.//for 0..$`-1