#        1         2         3         4         5         6
#2345678901234567890123456789012345678901234567890123456789012345678
$n=length$a++*$a/2;map{map{printf" %$n.d",++$k}1..$_;print$/}1..$a-1