{Mihai Viteazul
national College
Popa Ana Maria
Sfantu Gheorghe
Romania
code 2112}
uses crt;
var
f,g:text;
i,j,p:integer;
s:string;
x:array[1..50] of
byte;
k,w,A,B:byte;
q,c:char;
t,er:integer;
begin
for i:=1 to 12 do
x[i]:=4;
B:=0;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
A:=0;
k:=1;
while( k<=5)
do begin
if( k mod 2
<>0) then begin
read(f,c);
read(f,p);
read(f,q);
readln(f,s);
val(s,t,er);
if(c='R') then
begin
j:=p;
if(p+x[p]>6)
then
begin
A:=A+1;
w:=x[p]-1;
end
else
w:=x[p];
x[p]:=0;
for i:=p+1 to p+w
do
if( i=13) then
begin
j:=1;
x[j]:=x[j]+1;
end
else
begin
j:=j+1;
x[j]:=x[j]+1;
end;end
else
begin
j:=p;
if(x[p]>p+6)
then
begin
A:=A+1;
w:=x[p]-1;
end
else
w:=x[p];
x[p]:=0;
for i:=p-1 downto
p-w do
if( i=0) then
begin
j:=12;
x[j]:=x[j]+1;
end
else
begin
j:=j-1;
x[j]:=x[j]+1;
end;end;
if(er=0) then
writeln(g,x[t])
else
if(s='A') then
writeln(g,A)
else
writeln(g,B);
end
else
if( k mod 2 =0)
then begin
read(f,c);
read(f,p);
read(f,q);
readln(f,s);
val(s,t,er);
if(c='R') then
begin
j:=p;
if(p+x[p]>12)
then
begin
B:=B+1;
w:=x[p]-1;
end
else
w:=x[p];
x[p]:=0;
for i:=p+1 to p+w
do
if( i=13) then
begin
j:=1;
x[j]:=x[j]+1;
end
else
begin
j:=j+1;
x[j]:=x[j]+1;
end;end
else
begin
j:=p;
if(0>p-x[p])
then
begin
B:=B+1;
w:=x[p]-1;
end
else
w:=x[p];
x[p]:=0;
for i:=p-1 downto
p-w do
if( i<>0)
then begin
j:=i;
x[j]:=x[j]+1;
end
else
begin
j:=12-i;
x[j]:=x[j]+1;
end;end;
if(er=0) then
writeln(g,x[t])
else
if(s='B') then
writeln(g,B)
else
writeln(g,A);
end;
inc(k);
end;
close(f);
close(g);
end.