const litere=['a'..'z','A'..'Z'];
var f,g:text;
    n,m:longint;
    c:char;
    ok:boolean;
begin
assign(f,'text.in');reset(f);
ok:=false;
n:=0; m:=0;
while not eof(f) do begin
   read(f,c);
   if  c in litere then
      if ok then n:=n+1
      else begin ok:=true;
                 n:=n+1;
                 m:=m+1;
          end
   else ok:=false;
end;
assign(g,'text.out');rewrite(g);
write(g,n div m);
close(g)
end.