$_=@;=1..$a++*$a/2;printf" %@{[y///c]}d"x++$;.$/,splice@;,0,$;while@;