{$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;
        delete(sir,1,j-1);
        i:=1;
        repeat
          if not(sir[i] in ['A'..'Z','a'..'z']) and not(sir[i+1] in ['A'..'Z','a'..'z']) then
          begin
            delete(sir,i+1,1);
            continue;
          end;
          inc(i);
        until i=length(sir);
         write(output,sir);
        for i:=1 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);
      //  if not(sir[length(sir)] in ['a'..'z','A'..'Z']) then inc(count);
        write(output,size div count);
    close(input);
    close(output);
end.