一応、サーバ通ったので、コードを記述。

\\ は、行がつながっていることを意味しています。

import Numeric
g n i
 |i >=0 && i <= 9 =toEnum(fromEnum '0'+i)
 |1>0=toEnum(fromEnum 'A'+i-10)
n#a=showIntAtBase n(g n)a""
f x|length x==1=' ':x|1>0=x
main=do n<-readLn;mapM putStrLn$map((' ':).unwords)\\
[[f(n#(a*b))|a<-[1..n-1]]|b<-[1..n-1]]

【修正後】

\\ は、行がつながっていることを意味しています。

import Numeric
g n i|i>=0&&i<=9=toEnum(fromEnum '0'+i)|1>0=toEnum(fromEnum 'A'+i-10)
f x|length x==1=' ':x|1>0=x
main=do n<-readLn;mapM putStrLn$map((' ':).unwords)\\
[[f(showIntAtBase n(g n)(a*b)"")|a<-[1..n-1]]|b<-[1..n-1]]

まだまだ縮みそうだが、厳しいなあ。。。