using namespace std;
#include<iostream>
#include<cstring>
#include<cctype>
#include<fstream>
int main()
{
    int k=0,n,i,rez,m;
    char vec[99999][20];
    fstream fis("text.in",ios::in);
    do
    {
        k++;
        fis>>vec[k];
    }
    while(!fis.eof());
    fis.close();
    n=k-1;
    k=0;
    for(i=1;i<=n;i++)k=k+strlen(vec[i]);
	m=n+1;
	for(i=1;i<=n;i++)
	{
		n=strlen(vec[i]);
		if(vec[i][n-1]=='!')m++;
		if(vec[i][n-1]=='?')m++;
		if(vec[i][n-1]=='.')m++;
	}
    rez=k/m;
    fstream fiss("text.out",ios::out);
    fiss<<rez;
    fiss.close();
}