program Project2;

{$APPTYPE CONSOLE}


var st: string;
   i,j,f: integer; k: int64;
   p: boolean;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(input,'count.in');
  reset(input);
  while not EOF do
  read (st);
  close(input);
  assign(output,'count.out');
  rewrite(output);
  p:= false;
  f:=length(st);
  for i:=1 to f-1 do
  begin
    for j:= i+1 to f do
      if (st[i]<>st[j]) then p:= true else
        begin
        p:= false;
        break;
        end;
  if p= true then inc(k);
  end;
  inc(k);
  writeln(k);

  close(output);
end.