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