ll@n,@p[n],z=n;
unionFind u('m',n,1);
rep(i,n)z-=!u(i,p[i]-1);
wt(z);