import Control.Monad

main :: IO ()
main = do
    s <- getLine
    let t = (read :: String -> Int) s
    forM_ [1..t] $ \i -> do
        putStrLn $ concat $ replicate (t-i+1) s