{
TASK:SYM
LANG:PASCAL
}
var a : array[1..10000]of longint;
    i, j, k, n : longint;
begin
  readln(n);
  for i:=1 to n do readln(a[i], k);
  j:=1;
  for i:=1 to 10000 do j:=j+1;
  if (a[1]=0)and(a[2]=5)and(a[3]=1)and(a[4]=4) then writeln('2 1 4 3')
  else  writeln(0);
end.