import Control.Monad (replicateM_)

main :: IO ()
main = do
  n <- getLine
  solve n (read n)

solve :: String -> Int -> IO ()
solve s c
  | c == 0 = return ()
  | otherwise = do
      replicateM_ c $ putStr s
      putStrLn ""
      solve s (c - 1)