zadacha

var
  s1,s2,s3,s4,s5,s6 : string;
  d1,d2,d3,d4,d5,d6 : longint;
  c1,c2,c3,c4,c5,c6 : char;
begin
  readln(s1);
  readln(d1);
  d2:=length(s1);
  s2:=s1;
  delete(s1,d2-d1+1,d1);
  writeln(s1);
  writeln(s2[d2-d1+1],s2[d2-d1+2]);
end.