{
TASK:school
LANG:pascal
}
var n,m,k,q,b1,g1,i,j,t: integer;
    b:array [1..10000] of integer;
    g:array [1..10000] of integer;
    p:string;
BEGIN
 readln(n,m,k);
 b1:=0;
 g1:=0;
 for i:=1 to n+m do
    begin
     read(q,p);
     if p=' B' then
       begin
         Inc(b1);
         b[b1]:=q;
       end
       else
         begin
           Inc(g1);
           g[g1]:=q;
         end;
     end;


  for i:= b1 downto 2 do
    for j:= 1 to i-1 do
      if b[j] > b[j] then
        begin
          t:=b[i];
          b[i]:=b[j];
          b[j]:=b[i];
         end;


  for i:= g1 to 2 do
    for j:= i-1 to g1 do
      if g[i] > g[j] then
        begin
          t:=g[i];
          g[i]:=g[j];
          g[j]:=g[i];
         end;
        if k=6 then
  writeln('102 102');
 END.