var

i,j,m,n,temp1,temp2,x:longint;

a,b1,b2,c:array[1..100000] of longint;

begin

readln(n,m);

for i:=1 to n do

read(a[i]);

for i:=1 to m do

begin

read(b2[i]);

b1[i]:=b2[i];

end;

for i:=n-1 downto 1 do

for j:=1 to i do

if a[j]