(use srfi-1)(while(read)=> x(apply print x" ="(map(^i((^d(if(=(expt d i)x)#`" ,|d|^,i"""))(x->integer(expt x(/ i)))))(iota 20 2))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page