(apply print(do((i 1)(j 2)(n 1(- 3 n))(\`(1 2 2,@(make-list 9997))))((> j 9998)\)(dotimes'(~\(inc! i))(set!(~\(inc! j))n))))