var n:integer;
s:int64;
w:array [1..20] of longint;
pro:array [1..20] of boolean;
begin
  readln(n);
  d:=1;
  for i:=1 to 20 do
    begin
      read(w[i]);
      s:=s+w[i];
    end;
  d:=d shl n;
  for i:=1 to d do
    for