uses crt;
var st : string;
d1,d2 ,i : integer;
begin clrscr;
d1:=0; d2:=0;
assign(input,'QUERYAB.INP');
assign(output,'QUERYAB.OUT');
reset(input);rewrite(output);
read(input,st);
for i:=1 to length(st) do if st[i]='A' then d1:=d1+1 else d2:=d2+1;
write(output,d1,d2);
close(input); close(output);
readln
end.