(setf n(read)i(read-line)_ #1=(doseq(c i)(dotimes(k n)(princ c)))_(format t"~V@{
~@?~2:*~}
"(- n 2)(format()"~~{~~C~V@{ ~}~~:*~~C~~}"(- n 2)t)(coerce i'list))_ #1#)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).