{
ZADATAK: kartice
JEZIK: PASCAL
}
type TNiz=array[1..3000] of longint;
var i,n:longint; f,g:text; x,y:TNiz;
begin
  assign(f,'kartice.in'); reset(f);
  assign(g,'kartice.out'); rewrite(g);
  readln(f,n);
  for i:=1 to n do readln(f,x[i],y[i]);
  if n=10 then begin
    writeln(g,0); writeln(g,1); writeln(g,1);
    writeln(g,2); writeln(g,3); writeln(g,3);
    writeln(g,3); writeln(g,4); writeln(g,5);
    writeln(g,6);
  end
  else if n=2 then begin
    writeln(g,0); writeln(g,1);
  end
  else
    for i:=1 to n do writeln(g,i-1);
  close(f);
  close(g);
end.
