{
TASK:gen
LANG:PASCAL
}
var
   s : string;
   i ,n: longint;
   ans : string;
begin
   readln(s);
   readln(n);
   for i:=1 to n do
      readln(s);
   readln(n);
   readln(s);
   if s[1]='C' then ans:='BC';
   for i:=2 to n do
      readln(s);
   if ans='' then writeln('0') else writeln(ans);

end.
