program xmz;
var
i,j,n,d,k,s,tt:integer;
x:array[1..1000,0..15]of integer;
y:array[1..15]of boolean;
f1,f2:text;
procedure zu(a,c:integer);
var
t,ss:integer;
begin
 for t:=a to d+1-c do
  begin
   y[t]:=true;
   if c<>1 then zu(t+1,c-1) else
   begin for i:=1 to n do
     begin
      ss:=0;
      if x[i,0]=0 then s:=s+1 else
      begin
       for j:=1 to x[i,0] do
        if not(y[x[i,j]]) then ss:=1;
       if ss=0 then s:=s+1;
      end;
     end;
      if s>tt then tt:=s;s:=0;
  end;
   y[t]:=false;
  end;

end;

begin
assign(f1,'disease.in');assign(f2,'disease.out');
reset(f1);rewrite(f2);
read(f1,n,d,k);
for i:=1 to n do
 begin
  read(f1,x[i,0]);
  for j:=1 to x[i,0] do
   read(f1,x[i,j]);
 end;
tt:=0;
zu(1,k);
write(f2,tt);
close(f1);close(f2);
end.