var
c,a:array[-5..100005] of longint;
n,i,k:longint;
begin
assign(input,'baitap.inp');reset(input);
assign(output,'baitap.out');rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]); k:=0;
for i:=1 to n do
begin
inc(k);
c[k]:=a[i];
end;
for i:=1 to n do
begin
inc(k);
c[k]:=a[i];
end;
for i:=1 to k do write(c[i],' ');
close(input);close(output);
end.