var t,p:array[1..2000] of integer;

n,m,temp,x,i,j:integer;

begin

readln(n,m);

for i := 1 to n do

readln(p[i]);

for i := 1 to m do

readln(t[i]);

for i :=1 to n do

for j:= i+1 to n do

if p[i]t[i] then m:= m-1

else for i := 1 to n do

if p[i]>t[i] then m:= m-1;

x:=x;

for i := 1 to m do

if t[i]