#        1         2         3         4         5         6         7
#234567890123456789012345678901234567890123456789012345678901234567890
$b=length$a++*$a/2;for(2..$a){printf" %$b.d",++$;for(0..$@++);print$/}