(#1=dotimes(i(setf f"~V@{/ \\__~}"n(read))(#1#(i n(#1#(i n)(#2=format(> i 0)"~VT\\__~@?/
"(* 3 i)f #3=(- n 1 i)t)))(#2#t"~@?/ \\
~@*\\__~@?/
"f(1- n)t)))(#2#t" ~V@T__~@?
"(* #3#3)f i t))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).