ar i,n,r,l : integer;
a :array of string;
s :string;
j : char;
mn,mn1 : array['a'..'z'] of integer;
{Функция для проверки, составлено ли слово из разрешенных символов}
function Check(s : string) : boolean;
vari,j : integer;
begin
result:=true; mn1:=mn;
for i:=1 to Length(s) do
if mn1[s[i]]>0 then dec(mn1[s[i]]) else result:=false;
end;

begin
reset(input,'input.txt');
rewrite(output,'output.txt');
readln(n); r:=0;
for j:='a' to 'z' do mn[j]:=0;
if n<>0 then
begin
SetLength(a,n+1); {а – одномерный динамический массив строк размерности – n}
fori := 1 to n do readln(a[i]); {заполняем массив (а) нашими строками}
readln(s); {контрольная строка}
if s<>'' then
begin
{Определяем сколько раз каждая буква из контрольной строки встречается в ней}
for i:=1 to Length(s) do inc(mn[s[i]]);
for i:=1 to n do
{Отправляем каждое слово на проверку в нашу функцию}
if Check(a[i]) then inc(r);
end; writeln(r);
end;
end.