number slide by moriA

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