var
  n,i,j,se:longint;
  a:array[1..100]of string;
begin
  readln(n); se:=1;
  while n>0 do
    begin
      writeln('set ',se);
      for i:=1 to n do
        readln(a[i]);
      j:=1;
      while j<=n do
        begin
          writeln(a[j]);
          inc(j,2);
        end;
      j:=n-n mod 2;
      while j>=2 do
        begin
          writeln(a[j]);
          dec(j,2);
        end;
      readln(n); inc(se);
    end;
end.