(loop(set'x(read))(dotimes(i 21)(or(floatp #1=(expt x(/(1+ i))))(format t"~[~&~D =~:; ~D^~D~]"i #1#(1+ i)))))