program zx000;

type

re=record

tizhong,xuhao,pingguo:longint;

end;

var

n:array[1..100000] of longint;

m:array[1..100000] of re;

m1,n1,i,a,k:longint;

p:re;

begin

readln(n1,m1);

for i:=1 to n1 do

read(n[i]);

readln;

for i:=1 to m1 do

begin

read(m[i].tizhong);

m[i].xuhao:=i;

end;

for i:=1 to m1-1 do

for a:=i to m1 do

if m[i].tizhong