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