NECK PASCAL

var s:string;
    y,r,g:longint;

procedure xuli;
var    i:longint;
begin
    readln(s);
    y:=0;r:=0;g:=0;
    for i:=1 to length(s) do
    begin
        if s[i]='Y' then inc(y);
        if s[i]='R' then inc(r);
        if s[i]='G' then inc(g);
    end;
    if (y=r) and (r=g) then write('YES')
    else write('NO');
end;

begin
    assign(input, 'neck.inp');reset(input);
    assign(output, 'neck.out');rewrite(output);
    for i:=1 to n do
        xuli;
    close(input);close(output);
end.