var s:string;
f,g:text;
k,i,n:integer;
begin
assign (f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,s);
k:=0;
n:=0;

s:=' '+s;

for i:=1 to length(s) do begin
if (ord(s[i]) >=65) and (ord(s[i]) <=90) then

k:=k+1;

if (ord(s[i]) >=97) and (ord(s[i]) <=122) then
k:=k+1;


if ((s[i]<'A') or (s[i]>'z')) or ((s[i]>'Z') and(s[i]<'a'))  then
s[i]:=' ';

if(s[i]=' ')and(s[i+1]>='A')and(s[i]<='z') then
n:=n+1;
end;
writeln(s);
write(g,k div n);
close(f);
close(g);
readln;
end.