{
TASK:gen
LANG:PASCAL
}

var
        s:string;

begin
 Readln(S);
 if s='aababb' then writeln('BC')
               else
 writeln(0)
end.