var
n,i,j:integer;
s:array [1..15] of string;
begin
j:=0;
while true do
begin
readln(n);
if n=0 then exit;
inc(j);
writeln('SET ',j);
for i:=1 to n do readln(s[i]);
for i:=1 to n do
if odd(i) then writeln(s[i]);
for i:=n downto 1 do
if not(odd(i)) then writeln(s[i]);
end;
end.