var t:text;
    s:string;
    nr,i,lungime,x:integer;
const lit=['a'..'z','A'..'Z'];
begin
assign (t,'text.in');
reset (t);
read (t,s);
close (t);
lungime:=length(s);
for i:=1 to length(s) do
if not(s[i] in lit) then lungime:=lungime-1;
repeat
x:=x+1;
if s[x] in lit then
begin
while s[x] in lit do
x:=x+1;
nr:=nr+1;
end;
until x=length(s);
assign (t,'text.out');
rewrite (t);
write (t,lungime div nr);
close (t);
end.