ll@n,@a[n]--,v[n]{},z=0;
rep(i,n){
	if(!v[i]){
		while(!v[i]++){
			i=a[i];
		}
		++z;
	}
}
wt(z);