program pr_1;
uses crt;
var f:text;
    n,l:integer;
    c:char;
    begin
clrscr;
n:=0;
l:=0;
assign(f,'c:\a3.txt');
reset(f);
if eof(f) then writeln('empty')
else
begin
while not eof(f) do
 begin
 read(f,c);
  if (c in ['a'..'z']) or (c in ['A'..'Z']) then n:=n+1
  else
  l:=l+1;
 end;

if n<>0 then writeln('answer  ',l div n,'.',
   abs((l*10 div n) mod 10));

end;
readln;
end.