#        1         2         3         4         5         6
#23456789012345678901234567890123456789012345678901234567890123
map{map{$a=0if$_>$a-2;printf" %$a.d",++$;}0..$@++;print$/}1..$a