var f,g:text;
s:string;
i,j,m:integer;
l:integer;
begin
m:=0;
j:=0;
l:=0;
assign(f,'subsir.in');
reset(f);
readln(f,s);
m:=length(s);
for i:=1 to length(s) do    begin
if((s[i]='.')or(s[i]=' ')or(s[i]='!')or(s[i]='?')or(s[i]=',')) then
m:=m-1;
if(s[i]=' ')then begin
j:=j+2;
l:=(m div j);
l:=l+1;
assign(g,'subsir.out');
rewrite(g);
writeln(g,l);
end;  end;
close(f); close(g);
 end.