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
for k:=1to n do write((^`+s[j]+s[j])[1+card([1,n]*[i,k])]);writeln end;end.