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.