program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var inp,outp: text;
    a: array[1..9]of integer;
    c: char;
    i,ans: integer;
begin
   assign(inp,'count.in');
   assign(outp,'count.out');
   reset(inp);
   rewrite(outp);
   while not eof(inp)do
      begin
         read(inp,c);
         if c in ['1'..'9']then
         inc(a[StrToInt(c)]);
      end;
   ans:=0;
   for i:=1 to 9 do
      if a[i]<>0 then
         inc(ans);
   writeln(outp,ans);

   close(inp);
   close(outp);
end.