$ perl -E 'say "*" x $_ for reverse 1 .. <>'
4
****
***
**
*