var n,i,j,k:word;s:string;
begin
readln(n);read(s);for i:=1to n do begin
for j:=1to length(s)do begin write(s[j]);for k:=1to n-2do if(i=1)or(i=n)then write(s[j])else write(' ');write(s[j])end;writeln
end;end.