(port-fold(^(x n)(print #1=(~ #`",n,x"(- 2(or(string-scan #`",x"n)2))))#1#)"1"read)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page