(def b" | | \n") (def l"---+---+---\n") (def B(str b l b l b)) (defn t[b,v,p](def s(str(.substring b 0 p)v(.substring b(+ p 1))))(println s)s) (t(t(t(t(t(t(t B"X"1)"O"29)"X"57)"O"9)"X"49)"O"53)"X"25)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).