var {s:array[1..1000000] of char;}
    c:char;
    n,l:longint;
    o,d:text;
begin
assign(d,'text.in');assign(o,'text.out');
reset(d);rewrite(o);
l:=0;n:=0;
read(d,c);
while (ord(c)<65)and(ord(c)>90)and(ord(c)<97)and(ord(c)>122) do read(d,c);
while not eoln(d) do
  begin
    while not((ord(c)<65)and(ord(c)>90)and(ord(c)<97)and(ord(c)>122)) do
      begin
        l:=l+1;
        read(d,c);
      end;
    n:=n+1;
    while (ord(c)<65)and(ord(c)>90)and(ord(c)<97)and(ord(c)>122)and(not eoln(d))
    do read(d,c);
  end;
write(o,l div n);
close(o);close(d);
end.