zy....

program P1021;

var

n,k,i,j,sum,t:longint;

a:array[1..200,1..200]of boolean;

f:array[1..200]of longint;

procedure readdate;

begin

fillchar(a,sizeof(a),0);

readln(n,k);

for i:=1 to n do

begin

repeat

read(t);

begin

a:=true;

a[t,i]:=true;

end;

until t=0;

end;

end;

procedure main;

begin

fillchar(f,sizeof(f),0);

for i:=1 to n do

for j:=1 to n do

begin

if a then inc(f[i]);

end;

sum:=0;

for i:=1 to n do

if f[i]>=k then inc(sum);

writeln(sum);

end;

begin

readdate;

main;

end.