main = do
    num <- readLn :: IO Int
    printNum num

printNum a = printNum' a a
    where
        printNum' n 1 = print n
        printNum' n m = (putStrLn $ concat $ map show $ take m $ repeat n) >> printNum' n (m-1)