var  f:text;
     w,x,nr,m:longint;
     p:char;
begin
     assign(f,'text.in');
     reset(f);
              w:=0;
              while not(eof(f)) do
              begin
                   read(f,p);
                   m:=ord(p);
                   if ((m>=65)and(m<=90))or((m>=97)and(m<=122)) then
                   begin
                        if w=0 then
                        begin
                           w:=1;x:=x+1;
                        end;
                        nr:=nr+1;
                   end
                   else
                       w:=0;
              end;
     close(f);
     assign(f,'text.out');
     rewrite(f);
                write(f,nr div x);
     close(f);
end.