const d:array[1..4,1..2] of integer=((1,0),(0,1),(-1,0),(0,-1));
s:array[1..4] of char=('R','T','L','B');
var k,i,j,n,m,close:integer;
a:array[1..100,1..2] of integer;
b:array[1..100,1..2] of integer;
function pd:boolean;
begin
pd:=false;
for k:=1 to m do
if(b+d=b)and (b+d=b)then
begin pd:=true;break;end;
end;
begin
readln(n);
for i:=1 to n do
readln(a,a);
write(a[1,1],' ',a[1,2]);
m:=1; close:=1;
b[1,1]:=a[1,1];
b[1,2]:=a[1,2];
while m