CL-USER> (format t"~1{~#T☆~%~}~:*~{~#T~#@*~:*~#@{**~}~#@*
~}~:*~1{~#T**
~}"(make-list(read)))
8
☆
**
****
******
********
**********
************
**************
****************
**
NIL
元ネタ。~#がCLHS非互換な処理系(clisp, cclなど)だとバグるのでsbcl, ecl, abcl, xyzzy推奨です。