$_=$!=get-1;while $_-- {say " "x$_~"*"x(2*$!-$_*2-1)}
say " "x$!-3~"COBOL"