main=mapM putStrLn[[1..i]>>show j|i<-[2..8],j<-[1..9]]