main=do n<-readLn;mapM putStrLn[[shows(x-n)(" "++['1'..])!!max(n-x-y)1|x<-l]|l<-[map abs[1-n..n-1]],y<-l]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page