(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)))