@ARGV="ctriangle.txt"; sub n{print$"x(40-$r),@b,$/} @a=map{split}<>;$,=$";while($r++<@a){@b=splice@a,0,$r;n}$r--,n