main=do n<-readLn;mapM putStrLn[do x<-[1..n-1];[' ',' '#div(x*y)n,'0'#mod(x*y)n]|y<-[1..n-1]] a#b=(a:['1'..'9']++['A'..])!!b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page