(port-map(^x(let('display)'#`",x ="(do((i 2(+ i 1)))((> i 21)'#\xa)(let1 z(x->integer(expt x(/ i)))(if(=(expt z i)x)'#`" ,|z|^,i")))))read)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page