program cch(input,output);
var
 i,j,x,k,d,q,n,tot,ans,ch,y,p:integer;
 flag,flag1:boolean;
 a:array[1..1000,0..15] of integer;
 tmp:array[1..20] of integer;

procedure search(k,w:integer);
var
 i,j:integer;
begin
 if k=q+1 then
  begin
   ch:=0;
   for i:=1 to tot do
    begin
     flag:=true;
     for j:=1 to a[i,0] do
      begin
       flag1:=false;
       for p:=1 to q do
        if tmp[p]=a[i,j] then
         begin
          flag1:=true; break;
         end;
       if not flag1 then
        begin
         flag:=false; break;
        end;
      end;
      if flag then inc(ch);
    end;
   if ch>ans then ans:=ch;
  end;
 for i:=w+1 to d do
  begin
   tmp[k]:=i;
   search(k+1,i);
  end;
end;


begin
 assign(input,'disease.in');
 assign(output,'disease.out');
 reset(input);
 rewrite(output);
 readln(n,d,q);
 tot:=0;
 for i:=1 to n do
  begin
   read(x);
   if x<=q then
    begin
     inc(tot); a[tot,0]:=x;
     for j:=1 to x do
      read(a[tot,j]);
    end;
  end;
 ans:=0;
 search(1,0);
 write(ans);
 close(input);
 close(output);
end.