main=readLn>>=20#[191] (d+1#x)n=mapM putStrLn[unwords[show m|m<-x,m<=n]|x<[n]]>>(d#(x!!0-d:map(+1)x))n
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page