(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)