import Data.List

main :: IO ()
main = readLn >>= \num -> mapM_ putStrLn [intercalate "" $ replicate x $ show num | x <- [num - y | y <- [0..num - 1]]]