Program Texte; uses crt;
   var s : string;
       i, j, k : longint;
       f, g : text;
 Procedure Citeste;
  begin
    Assign(g,'Text.in');
     Reset(G);
      Read(g,s);
    Close(G);
  End;
 Procedure Scrie;
  Begin
    Assign(f,'Text.out');
      Rewrite(F);
      Write(F,j div k);
    Close(F);
  End;
 Procedure NumaraCuvinte;
  Begin
  S:=' '+S;  k:=0;  j:=0;
   For i:=1 to Length(S) do
     Begin
       If  (not (S[i] in ['a'..'z','A'..'Z','0'..'9'])) and (S[i+1] in ['a'..'z','A'..'Z']) then
           k:=k+1;
        If S[i] in ['a'..'z','A'..'Z'] then
           j:=j+1;
     End;
  End;
Begin
    Citeste;
    NumaraCuvinte;
    Scrie;
 Readln;
End.