(compile(defun f(m d)(format t"~D=~{~D~[~;~:;^~:*~D~]~^*~}
"m(do'(a()(if(=(mod m d)0)`(,@a,d,(log(/ m(setf m(/ m(gcd(expt d 7)m))))d))a))((>(*(incf d)d)m)(if(> m 1)`(,@a,m 1)a))))))(loop(f(read)1))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).