ll@n,@p--[n],w=0,z[n*n];
rep(n){
	rep(i,n-1){
		if(p[i]>p[i+1]){
			z[w++]=i+1;
			swap(p[i],p[i+1]);
		}
	}
}
wtLn("Yes",w,z(w));