var n,i,k,t,q,r,p0,q0,s0: integer;
    A,B: array[1..1000] of integer;
      f: text;
BEGIN
assign(f,'input.txt');
reset(f);
read(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
assign(f,'output.txt');
rewrite(f);
k:=1;
while k<N do
begin
  t:=0;
  while t+k <= N do
  begin
    q:=t+k;
    if t+2*k>N then r:=N
               else r:=t+2*k;
    p0:=t;
    q0:=q;
    s0:=t;
    while (p0<>q) or (q0<>r) do
    if (p0<q) and ((q0=r) or ((q0<r) and (A[p0+1]<=A[q0+1])))
    then begin B[s0+1]:=A[p0+1];  inc(p0);  inc(s0) end
    else begin B[s0+1]:=A[q0+1];  inc(q0);  inc(s0) end;
    t:=r;
  end;
  k:=k*2;
  A:=B;
end;
write(f,A[1]);
for i:=2 to n do write(f,' ',A[i]);
close(f)
END.