var i, j, count1, count2, sumFF: integer;
s1, s2: string;
k: char;
begin
readln(s1);
readln(s2);
sumFF := 0;
for i:=1 to length(s1) do begin
k := UpCase(s1[i]);
if ('A' <= k) and (k <= 'Z') then begin
count1 := 1;
for j:=i+1 to Length(s1) do
if k = UpCase(s1[j]) then begin
count1 := count1 + 1;
s1[j] := ' ';
end;
count2 := 0;
for j:=1 to Length(s2) do
if k = UpCase(s2[j]) then
count2 := count2 + 1;
writeln(k, ' ', count1, ' ', count2);
sumFF := sumFF + count1 * count2;
end;
end;
if length(s1) * length(s2) > 0 then
writeln(sumFF/(length(s1) * length(s2)):10:3)
else
writeln(0);
end.