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)or(ord(c)>90))and((ord(c)<97)or(ord(c)>122)) do read(d,c);
while not eoln(d) do
  begin
    while not(((ord(c)<65)or(ord(c)>90))and((ord(c)<97)or(ord(c)>122))) do
      begin
        l:=l+1;
        read(d,c);
      end;
    n:=n+1;
    while ((ord(c)<65)or(ord(c)>90))and((ord(c)<97)or(ord(c)>122))and(not eoln(d))
    do read(d,c);
  end;
write(o,l div n);
close(o);close(d);
end.