var

ns,s,i,t,n,k:longint;

begin

readln(n,k);

s:=0;

for i:=1 to n do

begin

t:=0;read(ns);

while ns0 do

begin

read(ns);

t:=t+1;

end;

if t>=k then inc(s);

end;

writeln(s);

end.

就这样，全过。。我晕死去~~~