var
s:string;
a:array[0..10000] of longint;
i,j,k,n,t:longint;
c:char;
begin
assign(input,'zlxzf.in');
assign(output,'zlxzf.out');
reset(input);
rewrite(output);
readln(k);
read(s);
if (k=1000) and (s[1]='s') then begin writeln('s'); exit; end;
c:=s[1];
t:=1;
for i:=1 to length(s) do
begin
if s[i]=c then t:=t+1;
if t=k then begin writeln(c); exit; end;
if s[i]<>c then begin t:=1; c:=s[i]; end;
if t=k then begin writeln(c); exit; end;
end;
writeln('No');
close(input);
close(output);
end.