var s:string;
f,g:text;
k,i,n:integer;  ok,ok1:boolean;
begin
assign (f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,s);
ok:=false;
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 begin
ok:=true;
k:=k+1;
end;
if (ord(s[i]) >=97) and (ord(s[i]) <=122) then begin
k:=k+1;
ok:=true;
end;
if (s[i]<'A') or (s[i]>'z') then
s[i]:=' ';

if{  (ok=true)and}(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.