var n,i,x,y:longint;
s,s1:string;
c,ch:char;
begin
assign(input,'home.in');
reset(input);
assign(input,'home.out');
rewrite(output); readln(s);
readln(n);
for i:=1 to n do
begin
read(c);
case c of
'D':begin
readln(x,y);
delete(s,x,y);
end;
'A':begin
read(ch);
readln(s1);
if pos(s1,s)=0 then writeln('NO')
else writeln('YES');
end;
'C':begin
read(x);
read(ch);
read(cc);
s[x]:=cc;
end;
'I':begin
read(x);
read(ch);
readln(s1);
insert(s,x,s1);
end;
end;
end;
writeln(s);
close(input);
close(output);
end.