{delete c
for(n=N=split($2,a,_);n--;)for(j=0;j++<N;c[k+1]=s)for(s=a[k=j]c[j];s<c[--k];)c[k+1]=c[k]}$0=c[$1+1]