(princ'[3)(dotimes(i 100)(format(>(sqrt i)(isqrt i)1)", ~D"i))(princ'])