program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const   k=10E1000;
var a,b:text;n:string;w,e,r,t,y,u,o,p,i,d,f:integer;q:array[1..255] of integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(a,'count.in');
  assign(b,'count.out');
  reset(a);
  w:=0;e:=0;r:=0;t:=0;y:=0;u:=0;o:=0;p:=0;d:=0;f:=0;
  For i:=1 to length(n)
    for 1 to k do
    begin
     if q[i]=0 then w+1;
     if q[i]=1 then e+1;
     if q[i]=2 then r+1;
     if q[i]=3 then t+1;
     if q[i]=4 then y+1;
     if q[i]=5 then u+1;
     if q[i]=6 then o+1;
     if q[i]=7 then p+1;
     if q[i]=8 then d+1;
     if q[i]=9 then f+1;
  end;
  if w>0 then s:=s+1;
   if e>0 then s:=s+1;
    if r>0 then s:=s+1;
     if t>0 then s:=s+1;
      if y>0 then s:=s+1;
       if u>0 then s:=s+1;
        if o>0 then s:=s+1;
         if p>0 then s:=s+1;
          if d>0 then s:=s+1;
           if f>0 then s:=s+1;
  rewrite(b);
  write(b,s);
  close(b);