expand text by murky-satyr

(let[(n(x->number(#0=read-line)))(s(#0#))](dotimes(i n)(dolist(c(string->list s))(format #t"~a~v,,,v@a"c(- n 1)(if(>(*(- n i 1)i)0)#\ c)c))(print)))

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

download

return to the top page