int@n,@h[n],@t[],e[18][4d5]{},@q;
coordcomp(n,h,n,t);
rep(i,n){
	e[0][h[i]]>?=t[i];
}
rep(i,1,4d5){
	e[0][i]>?=e[0][i-1];
}
rep(k,1,18){
	rep(i,4d5){
		e[k][i]=e[k-1][e[k-1][i]];
	}
}
rep(q){
	int@a--,@b--;
	if(t[a]>=h[b]){
		wt(1);
	}else{
		int c=t[a];
		int z=1;
		rrep(k,18){
			if(e[k][c]<h[b]){
				z+=1<<k;
				c=e[k][c];
			}
		}
		wt(z<1<<18?z+1:-1);
	}
}