Program zadasha1;
var f1,f2:text; n:string; a:array[1..10] of char;
 c,i,j:integer; k:byte;
begin
 assign(f1,'count.in');
 reset(f1);
 read(n);
 close(f1);
 c:=length(n);
 a[1]:='1';
 a[2]:='2';
 a[3]:='3';
 a[4]:='4';
 a[5]:='5';
 a[6]:='6';
 a[7]:='7';
 a[8]:='8';
 a[9]:='9';
 a[10]:='0';
 k:=0;
  for i:=1 to c do
   for j:=1 to 10 do
    begin
    if (n[i]=a[j]) then
     begin
      k:=k+1;
      a[j]:='-';

     end;
    end;
 assign(f2,'count.out');
 rewrite(f2);
 writeln(f2,k);
 close(f2);

end.