#include <fstream>
#include <string>
#include <algorithm>
using namespace std;

ifstream fin("text.in");
ofstream fout("text.out");

char last,s[5000];
int i,L,NR,len,ok;

int litera(char x) {
	x=toupper(x);
	if(x>='A' && x<='Z') return 1;
	return 0;
}

int main() {
	ok=1;
	while(ok) {
		memset(s,'\0',sizeof(s));
		if(fin.getline(s,sizeof(s))) ok=1;
		else ok=0;
		len=(int)strlen(s);
		for(i=0;i<len;i++)
			if(litera(s[i])) {
				if((	i==0) && litera(last)) {
					NR--; last='\0';
				}
				L++; i++;
				while(i<len && litera(s[i])) {
					L++; i++;
				}
				if(i==len) last=s[i-1];
				NR++;
			}
	}
	if(NR==0) {
		fout << "0";
		return 0;
	}
	fout << L/NR;
}