main=readLn>>=1#2 (l#m)n|l<n=putStrLn(unwords$map show[l..m-1])>>(m#(2*m-l+1))n
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page