var f:text;
    cl,cc:longint;
    mid:longint;
    c:char;
    semn:boolean;
begin
cl:=0;
cc:=0;
assign(f, 'text.in');
reset(f);
cl:=0;
cc:=0;
semn:=true;
read(f,c);
repeat
while(c in ['a'..'z','A'..'Z']) do begin read(f,c);cl:=cl+1;end;
while(c =' ') do read(f,c);
cc:=cc+1;
while (not(c in ['a'..'z','A'..'Z',' ']))do
     if eoln(f) then begin semn:=false;break;break;end
        else read(f,c);
until eoln(f);
close(f);
assign(f, 'text.out');
rewrite(f);
if semn then cc:=cc+1;
mid:=Trunc(cl/cc);
writeln(f, mid);
close(f);
end.