var s:string; k,k1,k2,i: integer;
begin
readln(s);
readln(k,k1,k2);
writeln(s[k]);
for i:=k1 to k2 do write(s[i]);
end.
var s:string; k,k1,k2,i: integer;
begin
readln(s);
readln(k,k1,k2);
writeln(s[k]);
for i:=k1 to k2 do write(s[i]);
end.