var
  s1,s2,s3 : string;
  c1,c2 : char;
  d1,d2,d3,d4 : longint;
begin
  readln(s1);
  readln(d1);
  d3:=length(s1);
  s1[d1]:='p';
  writeln(s1);
end.