(let((x(read)))(dotimes(b(1- x))(dotimes(a(1- x))(multiple-value-bind(y z)(floor(*(1+ a)(1+ b))x)(format t" ~A~A"(if(zerop y)#\ (digit-char y x))(digit-char z x))))(princ"\x0d
")))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).