var
i,j,k:integer;
s,p:string;
begin
p:='';
readln(s);
k:=0;
for i:=1 to length(s) do
for j:=1 to length(p) do
if s[i]=p[j] then k:=k+1;
writeln(k);
end.
var
i,j,k:integer;
s,p:string;
begin
p:='';
readln(s);
k:=0;
for i:=1 to length(s) do
for j:=1 to length(p) do
if s[i]=p[j] then k:=k+1;
writeln(k);
end.