program A;
var
        mas:array[1..10]of int64;
        i,kil:byte;
        sym:char;
        f:text;
begin
        for i:=1 to 10 do mas[i]:=0;
        assign(f,'count.in');
        reset(f);
        while not eoln(f) do begin
                read(f,sym);
                mas[ord(sym)-47]:=mas[ord(sym)-47]+1;
        end;
        close(f);
        assign(f,'count.out');
        kil:=0;
        for i:=1 to 10 do if mas[i]=0 then kil:=kil+1;
        rewrite(f);
        writeln(f,10-kil);
        close(f);
end.