ll@n,@p[n],iq[n];
rep(i,n){
	ll@q;
	iq[q]=i;
}
ll j=n,z=0;
rep(i,n){
	if(j>iq[p[i]]){
		j=iq[p[i]];
		++z;
	}
}
wt(z-1);