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