var s: string;
dem, ans, i: longint;
begin
assign(input, 'xau.inp'); reset(input);
assign(output, 'xau.out'); rewrite(output);
read(s);
dem:= 0;
ans:= 0;
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then
begin
inc(dem);
if s[i] = '1' then ans:= ans + 1;
if s[i] = '2' then ans:= ans + 2;
if s[i] = '3' then ans:= ans + 3;
if s[i] = '4' then ans:= ans + 4;
if s[i] = '5' then ans:= ans + 5;
if s[i] = '6' then ans:= ans + 6;
if s[i] = '7' then ans:= ans + 7;
if s[i] = '8' then ans:= ans + 8;
if s[i] = '9' then ans:= ans + 9;
end;
end;
writeln(dem); writeln(ans);
for i:= 1 to length(s) do
begin
if (s[i] in ['a'..'z']) and (s[i] <> ' ') or (s[i] in ['A' .. 'Z']) and (s[i] <> ' ') then write(s[i]);
end;
close(input); close(output);
end.