program Project2;

{$APPTYPE CONSOLE}

var a:array[0..9]of integer;
    c:cahr;
    i,n:integer;
begin
assign(Input,'count.in');
reset(Input);

while not(eof(Input)) do
  while not(eoln(Input)) do begin
    read(c);
    if c in['0'..'9'] then begin inc(a[ord(c)-48]);
  end;
close(Input);

n:=0;
for i:=0 to 9 do
      if a[i]>0 then inc(n);

assign(Output,'count.out');
rewrite(Output);
writeln(n);
close(Output);
end.