(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"
")))