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