open System;

let n = Console.ReadLine () |> int

let rec read arr =
    match Console.ReadLine () with
    | x when String.IsNullOrEmpty x -> arr
    | x -> x :: arr |> read

read []
|> List.rev
|> List.collect (fun x -> List.replicate n x)
|> Seq.iter (fun x -> printfn "%s" x)