(do[(l(read-line)(regexp-replace #/(.+)(.)/l"\\2\\1"))(n 0)][#f](print l)(ref l(inc! n)))