var
    s:ansistring;
    a,b,c,d,i:longint;
begin
 readln(s);
 for i:=1 to length(s) do
  begin
   if (s[i]>='A')and(s[i]<='Z')then inc(a);
   if (s[i]>='a')and(s[i]<='z')then inc(b);
   if (s[i]>='0')and(s[i]<='9')then inc(c);
   if s[i]=' ' then inc(d);
  end;
 writeln(a,' ',b,' ',c,' ',d);
end.
/**************************************************************
	Problem: 2224
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/