ll@n,@p[n],s[n+1]{},v[],j,k;rep(i,n)v[p[i]]=i;rep(a,1,n+1)if(!s[i=v[a]]){for(j=k=i+1;s[j]?j=s[j]:s[k]?s[k]=j,k=s[k]:0;);if(j<n)wtSp(a,p[j]),s[i]=s[j]=j+1;}