var a:array [1..200000] of string;
    f,g:text;
    ok:boolean;
    i,nrcar,nrcuv,j,lk:longint;
    se:set of char;
    asd:char;
begin
assign (f,'text.in');
assign (g,'text.out');
reset (f);
rewrite (g);
i:=0;
nrcar:=0;
for asd:='A' to 'Z' do
se:=se+[asd];
for asd:='a' to 'z' do
se:=se+[asd];
while not eoln(f) do
begin
i:=i+1;
read (f,a[i]);
end;
nrcuv:=1;
ok:=false;
for j:=1 to i do
    for lk:=1 to length(a[j]) do
    begin
    if (a[j,lk]=' ') and ok
    then
        begin
        nrcuv:=nrcuv+1;
        ok:=false;
        end;
    if a[j,lk] in se
    then
        begin
        nrcar:=nrcar+1;
        ok:=true;
        end;
    end;
writeln (g,nrcar div (nrcuv-1));
close(f);
close(g);
end.