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