var i, sum:integer;

   n:string;

begin

readln(n);

for i:=1 to length(n) do begin

 if StrToInt(n[i]) mod 4 <> 0 then

  sum:=sum+StrToInt(n[i]);

end;

writeln(sum);

end.