@ARGV="ctriangle.txt";
sub n{print$"x(40-$r/2)."$x\n"}
for(map{split}<>){$c=$r,n,$x=''if($r=length($x.=" $_"))>$c}n