var n,m,t,qi,i:longint;
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i],' ');writeln(b[n]);
end.
var n,m,t,qi,i:longint;
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i],' ');writeln(b[n]);
end.
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i], );writeln(b[n]);
end.
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i], );writeln(b[n]);
end.
var n,m,t,qi,i:longint;
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i],' ');writeln(b[n]);
end.
var n,m,t,qi,i:longint;
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i],' ');writeln(b[n]);
end.
var n,m,t,qi,i:longint;
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i],' ');writeln(b[n]);
end.
program qaz;
var n,m,t,qi,i:longint;
a,b:array[1..1000] of longint;
begin
readln(n,m,t);
for i:=1 to n do readln(a[i]);
for qi:=1 to n do if a[qi]=m then break;
for i:=1 to qi-1 do
a[n+i]:=a[i];
for i:=1 to n do
begin if t>=i then b[a[i]]:=a[qi+t-i] else
b[a[i]]:=a[qi+t+n-i];
end;
for i:=1 to n-1 do
write(b[i],' ');writeln(b[n]);
end.