var i, n, l: integer;
var m: real;
var str, str2: string;
var ch: char;

begin
  n := 0;
  l := 0;
  read(str);
  for i := 1 to length(str)do begin
    if (str[i] >= '0') and (str[i] <= '9')then
      n := n + 1
    else if (str[i] >= 'A') and (str[i] <= 'Z') or (str[i] >= 'a') and (str[i] <= 'z') then
      l := l + 1;
  end;
    writeln('Количество цифр: ', n);
    writeln('Количество букв: ', l);
end.