$n=length$a++*$a/2;map{map{printf" %$n.d",++$k}2..$_;print$/}0..$a