Program text1;
Var fi,fo:text;
    s:ansistring;
    i,k,m:integer;
    p,o:byte;
Begin
assign(fi,'text.in');
assign(fo,'text.out');
reset(fi);
s:=' ';
while not(eof(fi)) do read(fi,s);
close(fi);
rewrite(fo);
p:=65;
o:=97;
for i:=1 to length(s) do begin
                         if (s[i]='a')or(s[i]='b')or(s[i]='c')or(s[i]='d')or(s[i]='e')or
                            (s[i]='f')or(s[i]='g')or(s[i]='h')or(s[i]='i')or(s[i]='j')or(s[i]='k')or
                            (s[i]='l')or(s[i]='m')or(s[i]='n')or(s[i]='o')or(s[i]='p')or(s[i]='q')or
                            (s[i]='r')or(s[i]='s')or(s[i]='t')or(s[i]='u')or(s[i]='v')or(s[i]='w')or(s[i]='x')or(s[i]='y')or(s[i]='z')or
                            (s[i]='A')or(s[i]='B')or(s[i]='C')or(s[i]='D')or(s[i]='E')or(s[i]='F')or
                            (s[i]='G')or(s[i]='H')or(s[i]='I')or(s[i]='J')or(s[i]='K')or(s[i]='L')or
                            (s[i]='M')or(s[i]='N')or(s[i]='O')or(s[i]='P')or(s[i]='Q')or(s[i]='R')or
                            (s[i]='S')or(s[i]='T')or(s[i]='U')or(s[i]='V')or(s[i]='W')or(s[i]='X')or(s[i]='Y')or(s[i]='Z')
                             then inc(k);
                        { if (ord(s[i])=p)or(ord(s[i])=o) then inc(k);
                         inc(p);
                         inc(o);
                         if (s[i]='-')or(s[i]=' ') then inc(m);}
                         end;
if (s[1]='-')and(s[2]=' ') then dec(m,2);
if (s[1]=' ')and(s[2]='-') then dec(m,2);
Write(fo,k div m+1);
close(fo);
end.