main=readLn>>=1#2
(l#m)n|l<n=putStrLn(unwords$map show[l..m-1])>>(m#(2*m-l+1))n