(let((n(read)))(#1=dotimes(i n)(#2=format t" ~V@T__~V@{/ \\__~}
"(* #3=(- n i 1)3)i t))(#1#(i n)(#2#t"~{/ \\~*~^__~}
~:*~{\\__/~*~^ ~}
"(make-list n)))(#1#(i(1- n))(#2#t" ~V@T~V@{ \\__/~}
"(* i 3)#3#t)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).