KHAPALIN

const
        finp='';
        fout='';
var
        f:text;
        S:ansistring;
        a:array [0..127] of longint;
        i:longint;
        c:longint;
procedure init;
        begin
        assign(f,FINP);
        reset(f);
        read(f,S);
        close(f);
        assign(f,FOUT);
        rewrite(f);
        end;
procedure process;
begin
        for i:=1 to length(S) do
                inc(a[ord(S[i])]);
        for i:=0 to 127  do
                begin
                        if a[i] mod 2 =1 then  inc(c);
                end;
        if c>1 then write(f,FALSE) else write(f,TRUE);
end;
begin
init;
process;
close(f);
end.