(dotimes(i 2000)(set(intern(format()"~@r"(1+ i)))i))(loop(princ(1+(eval(read))))(terpri))