var s:string;
f,g:text;
k,i,n:integer;  ok:boolean;
begin
assign (f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,s);
ok:=false;
for i:=1 to length(s) do begin
if (ord(s[i]) >=65) and (ord(s[i]) <=90) then begin
ok:=true;
k:=k+1;
end;
if (ord(s[i]) >=97) and (ord(s[i]) <=122) then begin
k:=k+1;
ok:=true;
end;

if (ok=true)and(s[i]=' ') then
n:=n+1;
end;
n:=n+2;

write(g,k div n);
close(f);
close(g);
readln;
end.