main = readLn >>= putStrLn . init . unlines . solve

solve n = f n where
    n' = show n
    f n | n /= 0    = foldr (++) [] (replicate n n') : f (n - 1)
        | otherwise = []