var x:array[0..10] of 0..9;
        s:char;
        i,e,c,y:integer;



begin

 for i:=0 to 9 do
        x[i]:=0;

 c:=0;

 for i:=1 to 9 do
        begin
         read(s);
         if i>=3 then begin
         val(s,y,e);
         x[y]:=x[y]+1;
         end;
        end;

 for i:=0 to 9 do
        begin
         c:=c+8-x[i];
        end;


 writeln(c);


end.