{
TASK:school
LANG:PASCAL
}
program d3;
var
   m1,m2:array[1..10000] of integer;
   c1,c2,c3:char;
   br1,br2,a,b,g,n,m,k,min1,min2,i,j,l:integer;
Begin
readln(n,m,k);
b:=0;
g:=0;
for i:=1 to n-1 do begin
    read(a,c1,c2,c3);
    if c2='B' then begin inc(b);m1[b]:=a;end;
    if c2='G' then begin inc(g);m2[g]:=a;end;
    end;
    readln(a,c1,c2);
    if c2='B' then begin inc(b);m1[b]:=a;end;
    if c2='G' then begin inc(g);m2[g]:=a;end;
for i:=1 to m-1 do begin
    read(a,c1,c2,c3);
    if c2='B' then begin inc(b);m1[b]:=a;end;
    if c2='G' then begin inc(g);m2[g]:=a;end;
    end;
    readln(a,c1,c2);
    if c2='B' then begin inc(b);m1[b]:=a;end;
    if c2='G' then begin inc(g);m2[g]:=a;end;
if (b>=k) and (g>=k) then begin br1:=k;br2:=k;end;
if (b>=k) and (g<k) then begin br1:=2*k-g;br2:=g;end;
if (b<k) and (g>=k) then begin br1:=b;br2:=2*k-b;end;
for i:=1 to br1 do
    for j:=i to b do if m1[j]>m1[i] then begin l:=m1[i];m1[i]:=m1[j];m1[j]:=l;end;
min1:=m1[br1];
 for i:=1 to br2 do
    for j:=i to g do if m2[j]>m2[i] then begin l:=m2[i];m2[i]:=m2[j];m2[j]:=l;end;
 min2:=m2[br2];
 writeln(min1,' ',min2);
 End.
