{
TASK:gen
LANG:pascal
}
var s:string;
begin
readln(s);
if s='aababb' then writeln('BC') else
writeln(0);
end.