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