constPyramid :: Int -> String
constPyramid n = unlines ls
    where
        ls = [concat $ replicate i $ show n | i <- [n, n - 1 .. 1]]

main :: IO ()
main = do
    n <- readLn :: IO Int
    putStr $ constPyramid n