#include <bits/stdc++.h>
using namespace std;
string s;
int d,res;
int main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
    getline(cin,s);
    d=0;
    res=0;
    for (int i=0;i<s.length();i++)
    {
        int t=int(s[i]);
        if (48<=t&&t<=57)
        {
            d=d+t-48;
            //cout<<s[i]<<" ";
            res++;
        }
    }
    cout<<res<<endl;
    cout<<d;
}

uses crt;
var a:array[1..1000]of char; f:text; n:longint;
procedure doc;
        begin
         assign(f,'XAUSO.INP');
         reset(f);
         n:=0;
         while not(eoln(f)) do
                begin
                 inc(n);
                 read(f,a[n]);
                end;
         close(f);
        end;
procedure ghi;
var c,e,i,s,dem:longint;
        begin
         assign(f,'XAUSO.OUT');
         rewrite(f);
         s:=0;
         dem:=0;
         for i:=1 to n do if(a[i] in ['0'..'9'])then
                begin
                 inc(dem);
                 val(a[i],c,e);
                 s:=s+c;
                end;
         writeln(f,'So ki tu so: ' ,dem);
         write(f,'Tong: ',s);
         close(f);
        end;
begin
 clrscr;
  doc;
  ghi;
 readln;
end.