program Project2;
var
f, g : text;
t : array of integer;
n, i, j, k, l, o : integer;
ch, ch1 : char;
s : string;
begin
{w}
assign(f, 'count.in');
reset(f);
i := 0;
dec(i);
  assign(g, 'count.out');
  rewrite(g);
while not eof(f) do
begin
read(f, ch1);
inc(i);
end;
dec(i);
if i = 1 then
 begin
 writeln(g, '1');
 close(g);
 exit;
 end;
j := 1;
reset(f);
while j <= i do
begin
setlength(t, j+1);
read(f, ch);
 val(ch, t[j], o);
 inc(j);
end;
 n := length(t) - 1;
for i := 1 to n do
 begin
 for j := i+1 to n do
    begin
    if t[i] < t[j] then
    begin
      l := t[i];
      t[i] := t[j];
      t[j] := l;
      end;
    end;
 end;
 j := 2;
for i := 1 to n - 1 do
  begin
  for j := i + 1 to n do
   begin
    if t[i] = t[j] then
     t[j] := -1;
   end;
  end;
 for i := 1 to n do
  begin
  if t[i] <> -1 then
   inc(k);
  end;

  writeln(g, k);
  close(g);
end.