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