(do[(l(read-line)(regexp-replace #/(.+)(.)/l"\\2\\1"))(n 0)][#f](print l)(ref l(inc! n)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page