{$APPTYPE CONSOLE}

var f1,f2:text; n:integer; a:array[1..10] of byte;
 c,i,j:integer; k:byte;
begin
 assign(f1,'count.out');
 reset(f1);
 read(n);
 close(f1);
 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;
  while n<>0 do
   for j:=1 to 10 do
    begin
     c:=n mod 10;
     n:=n div 10;
      if c=a[j] then
     begin
      k:=k+1;
      a[j]:=25;
      end;
    end;
 assign(f2,'count.out');
 rewrite(f2);
 writeln(f2,k);
 close(f2);

end.