(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read))) (dotimes (i n) (dotimes (j n) (format t "~d" (mod (1+ i) 10)))) (terpri))) (main)