(loop(defun b(i)(if(= i 0)" "`(#2=,(#0=format()"+-~V@{--~}+"(1- i)t),@(map'list(lambda(s)(#0#()"|~A|"s))(b(1- i)))#2#)))(#0#t"~{~A ~}"(b(read))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page