めりー

CL-USER> (format t"~1{~#T☆~%~}~:*~{~#T~#@*~:*~#@{**~}~#@*
~}~:*~1{~#T**
~}"(make-list(read)))
8**
       ****
      ******
     ********
    **********
   ************
  **************
 ****************
        **
NIL

元ネタ。~#がCLHS非互換な処理系(clisp, cclなど)だとバグるのでsbcl, ecl, abcl, xyzzy推奨です。