#include<iostream>
#include<string>
#include<cctype>
using namespace std;
int main()
{
	string s;
	getline(cin,s);
	int letter=0,space=0,digit=0,other=0;
	int t=s.size();
	for (int i=0; i<t; i++)
		if (isalpha(s[i])) letter++;
		else if (isdigit(s[i])) digit++;
		else if (s[i]==' ') space++;
		else other++;
	cout<<letter<<" "<<digit<<" "<<space<<" "<<other<<endl;
	return 0;
}
/**************************************************************
	Problem: 2019
	User: admin
	Language: C++
	Result: Accepted
	Time:8 ms
	Memory:2076 kb
****************************************************************/