(#1=dotimes(i(1+(set'm(floor(read)3)))(#1#(i m(#1#(i m)(#2=format t"|~V@T/~V@{~}\\~V@T|
"#3=(- m i 1)i #4="~[__~:; ~]~:*"#3#)))(#2#t"|~V@T\\~V@{ ~}/~V@T|
"i #3#i)))(#2#t"~V@T/~V@{~}\\
"(- m i)i #4#(- m i)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).