(while(read)=> n(#0=format #t"~,D ="n)(dotimes,20(#0#(=(expt #1=(x->integer(expt n(/ #2=(+ . ,2))))#2#)n)" ~D^~D"#1##2#))(print))