(loop(doseq(c(car(set'x(regexp:regexp-split","(read-line)))))(princ(case c(#\%"")((#\1 #\2 #\3)(nth(digit-char-p c)x))(t c))))(terpri))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page