var
c,d,n:longint;
a,b,ans:array[1..100000]of longint;

procedure treat(w:longint);
var
i,j:longint;
begin
i:=w;
while b[a[i]]<>c do
  begin
  b[a[i]]:=c;
  i:=a[i];
  inc(ans[c]);
  end;
i:=a[i];
j:=w;
while j<>i do
  begin
  ans[a[j]]:=ans[j]-1;
  j:=a[j];
  end;
j:=a[j];
while j<>i do
  begin
  ans[j]:=ans[i];
  j:=a[j];
  end;
end;

begin
assign(input,'treat.in');
assign(output,'treat.out');
reset(input);
rewrite(output);

read(n);
for c:=1 to n do
read(a[c]);

for c:=1 to n do
if ans[c]=0 then
  begin
  ans[c]:=1;
  b[c]:=c;
  treat(c);
  end;

for c:=1 to n do
writeln(ans[c]);
close(input);close(output);
end.