{$H+}
const max=1000000;
var
  sir:string;
  i,j,size,count:integer;
  Buf :array[1..65000] of byte;

Begin
    assign(input,'text.in');
    assign(output,'text.out'); rewrite(output);
      settextbuf(input,buf);
      reset(input);
      setlength(sir,max);
      readln(input,sir);
        //calculare numar cuvinte;
        count:=0; size:=0;
        for j:=1 to length(sir) do if sir[j] in ['a'..'z','A'..'Z'] then break;
        for i:=j to length(sir) do if not(sir[i] in ['a'..'z','A'..'Z']) then inc(count);
        //calculare litere;
        for i:=1 to length(sir) do if sir[i] in ['a'..'z','A'..'Z'] then inc(size);

        write(output,size div count);
    close(input);
    close(output);
end.