var 
	BMW, n, nn, i, j, M, Val, MaxI : int64;
	x                              : int64;
	k1, k2, x2                     : string;
	a2                             : array[1..1000] of string;
	a, k, kk                       : array[1..1000] of integer;
	b, c, c2, b2                   : array[1..1000] of integer;

begin
	ReadLn(BMW);
	ReadLn(n);
	for i := 1 to n do  Read(b[i]);
	for i := 1 to n do  Read(c[i]);
	M   := 0;
	Val := 0;
	for i := 1 to n do  k1    := k1 + '1';
	for i := 1 to n do  kk[i] := 1;
	for i := 1 to n do  k [i] := 0;
	k[n] := 1;
	j    := 0;
	nn   := n;
	x    := 0;
	while (x < n) do begin
		x := 0;
		for i := 1 to n do  if (k[i] = 1) then begin
			M   := M   + b[i];
			Val := Val + c[i];
		end;
		if (M <= BMW) then begin
			Inc(j);
			c2[j] := Val;
			b2[j] := M;
		end;
		M   := 0;
		Val := 0;
		for i := 1 to n do begin
			Str(k[i], x2);
			a2[j] := a2[j] + x2;
		end;
		if (k[n] = 1) then begin
			while k[nn] = 1 do begin
				k[nn] := 0;
				Dec(nn);
			end;
			if (k[nn] = 0) then begin
				k[nn] := 1;
			end else begin
				k[nn] := 0;
				Inc(k[nn - 1]);
			end;
		end else begin
			k[n] := 1;
		end;
		for i := 1 to n do  if (k[i] = kk[i]) then Inc(x);
	end;
	MaxI := 0;
	for i := 1 to j do  if (c[i] > MaxI)                then MaxI := i;
	for i := 1 to n do  if (Copy(a2[MaxI], i, 1) = '1') then WriteLn(i);
end.