var
  s, n: integer;
  b:boolean;
begin
  readln(n);
  b:=false;
  if n mod 2=0 then b:=true;
  while n>0 do begin
    if b then s+=n mod 10
    else s+=sqr(n mod 10);
    n:=n div 10;
  end;
  write(s);
end.