Vertical Indent by youz

(loop(setq m(#0=format()"~14@{~80@T|~}"t)x 0 y
0)(doseq(c(read-line))(setf(elt m(+(*(if(eq c #\()(1-(incf y))(decf
y))81)x))c)(incf x))(#0#t"~{~&~A~}"(regexp:regexp-split" *|"m)))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page