var

a,b:array [1..30] of integer;

c,d,e,f,g,h:integer;

begin

read(c,d);

for e:=1 to c do read(a[e]);

for e:=1 to d do read(b[e]);

for e:=1 to c-1 do

for f:=c downto e+1 do

begin

if a[f]>a[f-1] then

begin

g:=a[f];

a[f]:=a[f-1];

a[f-1]:=g;

end;

end;

for e:=1 to d-1 do

for f:=d downto e+1 do

begin

if b[f]>b[f-1] then

begin

g:=b[f];

b[f]:=b[f-1];

b[f-1]:=g;

end;

end;

g:=1;

h:=0;

for e:=1 to c do

begin

while (a[e]