program ssstrrrinnnng;

procedure rotate(var base:string; left,right:integer);
var tmp:char;
begin
   while (left<right) do
     begin
       tmp:=base[left];
       base[left]:=base[right];
       base[right]:=tmp;
       inc(left); dec(right);
     end;
end;

var buffer:string;
    i,j,r,s:integer;

begin
   write('Zadej retezec: ');
   readln(buffer);
   write('Zadej i,j,r,s: ');
   readln(i,j,r,s);
   rotate(buffer,i,j); rotate(buffer,r,s); rotate(buffer,j+1,r-1);
   rotate(buffer,i,s);
   writeln('Vysledny retezec: ',buffer);
end.