var s:string;
i, cnt:integer;
x, y:char;
begin
//считываем строку
readln(s);
//считываем в следующей строку символ x
readln(x);
//считываем в следующей строку символ y
readln(y);
cnt := 0;
for i := 1 to length(s) do
if (s[i] = x) or (s[i] = y) then cnt := cnt + 1;
write(cnt);
end.