(princ'[3)(dotimes(i 100)(format(< 1(expt(isqrt i)2)i)", ~D"i))(princ'])