label 1;

var n,m,q,u,o,p:integer;

a,t:array[1..200]of integer;

begin

readln(n,m);

o:=m;

for q:=1 to n do readln(a[q]);

for q:=1 to m do readln(t[q]);

for q:=1 to m-1 do

for u:=q to m do

if (qu)and(t[q]t[q])and(t[q]>0)then begin

o:=o-1;

for u:=q to m do t[q]:=t[q+1];

q:=q+1;

goto 1;

end; }

writeln(o);

end.