Program text1;
var  f:text;
     n,i,x:integer;
     s:string;
begin
n:=0;
x:=1;
assign(f,'text.in');reset(f);
While not seekeof(f) do begin
readln(f,s);
n:=n+length(s);
For i:=1 to length(s) do begin
If s[i]=' ' then  x:=x+1;
If (s[i]<'A')or(s[i]>'z') then n:=n-1;
end;
    end;
assign(f,'text.out');rewrite(f);
writeln(f,n div x);
close(f);
end.