#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: linyuhang
	Language: C++
	Result: Accepted
	Time:7 ms
	Memory:2076 kb
****************************************************************/