var
  s,s1 : string;
  d,d1 : longint;
begin
  readln(s);
  readln(d);
  d1:=length(s);
  s1:=copy(s,d1-d,3);
  writeln(s1);
  writeln('s[',d,']=',s1[d]);
end.