---

var i:string;
a,j,k:longint;
begin
while not eof do begin
readln(i);
k:=length(i);
for j:= 1 to k do begin
a:=a+ord(i[j])-48;
end;
if a mod 3=0 then writeln('yes')
else writeln('no');
end;
end.