VAR

LA,LB,I,C,ANS:INTEGER；

A:ARRAY [1..2000] OF INTEGER；

B:ARRAY [0..300] OF INTEGER；

BEGIN

READLN(LA,LB)；

FILLCHAR(B,SIZEOF(B),0)；

B[0]:=MAXINT；

FOR I:=1 TO LA DO READLN(A[I])；

FOR I:=1 TO LB DO

BEGIN

READLN(C)；

IF C<>0 THEN INC(B[C])；

END；

ANS:=LB；

FOR I:=1 TO LA DO

BEGIN

C:=A[I]-1；

WHILE B[C]=0 DO DEC(C)；

IF C>0 THEN

BEGIN

DEC(B[C])；

DEC(ANS)；

END；

ENd；

writeln(ans)；

end.