(princ(subseq(write-to-string(loop for i to 99999 collect i):pretty())1 588890))