(loop(set'a(read-line))(format t"~[h~]~a\x0d "(position #\t a)a))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page