(compile(defun f()(setf n(read)m n x(loop for d in'(2 3 . #.(loop for i from 5 to 41593 if(=(gcd i 6)1)collect i))if(=(mod m d)0)collect`(,d,(setf g(gcd(expt d 7)m)m(/ m g)_(log g d)))))(format t"~D=~{~{~D~[~;~:;^~:*~D~]~}~^*~}~[~;~:;~:[~;*~]~D~]
"n x m x m)))(loop(f))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).