// Cảm ơn vì 30đ :))

var st:string;
    a:array['A'..'Z'] of longint;
    h,i:longint;
    f:text;
begin
assign(f,'necklace.inp');
reset(f);
readln(f,st);
close(f);
a['Y']:=0; a['R']:=0; a['G']:=0;
h:=length(st);
For i:=1 to h do inc(a[st[i]]);
assign(f,'necklace.out');
rewrite(f);
if (a['Y']=a['R']) and (a['G']=a['R']) then write(f,'YES') else write(f,'NO');
close(f);
end.

const fi='necklace.inp';
      fo='necklace.out';
var s:ansistring;
    d: array [' '..'Z'] of longint;
    n,i:longint;
begin
        assign(input,fi);
        reset(input);
        read(s);
        close(input);
        n:=length(s);
        for i:=1 to n do
                inc(d[s[i]]);
        assign(output,fo);
        rewrite(output);
        if (d['G']=d['Y']) and (d['G']=d['R']) then write('YES') else write('NO');
        close(output);
end.