var
a,b,d:array[1..100000]of longint;
c,m,n,i,j,k:longint;
procedure zou(x:longint);
var
y,y1:longint;
begin
y:=x;
while b[a[y]]<>i do
begin
b[a[y]]:=i;
inc(d[i]);
y:=a[y];
end;
y1:=i;
while y1<>a[y] do
begin
d[a[y1]]:=d[y1]-1;
y1:=a[y1];
end;
y1:=a[y1];
while y1<>a[y] do
begin
d[y1]:=d[a[y]];
y1:=a[y1];
end;
end;
begin
assign(input,'treat.in');
assign(output,'treat.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if d[i]=0 then
begin
b[i]:=i;
inc(d[i]);
zou(i);
end;
for i:=1 to n do
writeln(d[i]);
close(input);
close(output);
end.