var
  s1,s2,s3 : string;
  d1,d2,d3 : longint;
begin
  readln(s1);
  readln(d1);
  readln(d2);
  s2:=s1;
  d3:=length(s1);
  delete(s1,d1,d1);
  delete(s1,d2-1,1);
  writeln(s1,'=',length(s1));
  writeln(s2,'=',d2);
end.